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1.0 ABSTRACT 


THE RK11/RKOS erate EXERCISER IS A HIGH LEVEL EXERCISER 
PROGRAM "FOR AT oi: da = Ms pe SYSTEM ENVIRONMENT AND 
CHECKING cota IN SUCH AN ENVIRONMENT 
(INTERACTI OLLING, ET on tr ALSO PROVIDES A MEANS OF 
EVALUATING ry ever THROUGH ITS ERROR LOGGING AND DATA-TRANSFER 
LOGGING FACILITIES 


AT THE BEGINNING OF THE PROGRAM THERE IS A SERIES OF TESTS 
CIFICALLY AIMED AT DETECTING AND ANALYZING FAILURES 
ASSOCIATED WITH BOUNDARY CONDITION TRANSFERS. 


THE LATTER PART (AND THE MORE SIGNIFICANT ONE) CONSISTS OF THE 
EXERCISER. 


2.0 REQUIREMENTS 
2.1 EQUIPMENT 


A. POPI1 WITH ag TELTYPE 
- BK OF MEMORY - 12K FOR CHAIN MODE 


CONTROLLER 
5: Ros DRIVES WITH PLATTERS 
2.2 PRELIMINARY PROGRAMS 
SINCE THIS IS A HIGH-LEVEL EXERCISER PROGRAM 
hi He SHOULD ° 
DENSITY DRIVES. THUS THE FOLLOWING PROGRAMS SHOULD BE 
BEFORE ATTEMPTING TO USE THIS PROGRAM. 
A. RK11 BASIC LOGIC TESTS (I AND II) 
B. RK11/RKOS DYNAMIC TESTS 
C. RKOS UTILITY PACKAGE (IF NEEDED) 
2.3 EXECUTION TIME 
THIS VARIES FROM 30 TO 90 MINUTES FOR A PASS. IT SHOULD 
NOTED THAT THIS IS AN EXERCISER LEVEL PROGRAM AND SHOULD 
PREFERRABLY RUN FOR A LONG PERIOD OF TIME. 
3.0 STARTING ADDRESS 
200 - ALL SWITCHES DOWN. SEE SEC. 6.0 FOR SWITCHES. 
210 - RESTART ORES THE RESTART ADDRESS PROVIDES THE USER 
WITH AN ABILITY TO ” STRAIGHT TO EXERCISER PART OF THE PROGRAM 
(SKIPPING TESTS 1-7). CHER SA SWITCH OPTION (SW 4) WHICH 


I 
LOWS THE USER TO INHIBIT THE REWRITE OF RANDOM PATTERNS ON ALL 
DRIVES, ON RESTART. SEE SEC- 6.9. 
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4.0 PROGRAM CONTROL MODES AND OPERATOR ACTION 
4g TAPE LOADING 
RKDP CHAIN M 
ACTII 


4.1 PAPER TAPE LOADING 

4.1.1 oo INTO MEMORY USING STANDARD PROCEDURE FOR ABSOLUTE 

4.1.2 MAKE SURE o THE DRIVES TO BE CHECKED ARE LOADED WITH DISKS 
AND ‘BRI WRT * THEM. aa THAT *WRT_PROT’ 
LIGHT vom THESE IVES IS “Sere PUT DRIVES THAT ARE NOT TO BE 
TESTED ON 

4.1.3 LOAD ADDRESS 200 

4.1.4 SET SWITCHES IF DESIRED (SEE SEC 6.0) AND PRESS START 

4.1.5 THE PROGRAM IDENTIFIES ITSELF 
MAINDEC-11-DZRKH-E RK11/RKOS PERFORMANCE EXERCISER 
THEN IT PROCEEDS TO TEST THE DRIVES. 


4.2 RKDP DUMP MODE 
4.2.1 THE PROGRAM IS LOADED BY THE RKDP MONITOR. 
4.2.2 SET SA=200. SELECT ANY SWITCHES YOU WANT AND PRESS START. 
4.2.3 THE PROGRAM IDENTIFIES ITSELF AND PRINTS OUT: 
REPLACE ORO RKDP-PAK AND TYPE CR WHEN DONE IF NOT DRO ON LOAD 


IN ih ese TO_THIS, REPLACE THE RKDP PAK ON DRIVE 0. IF YOU 
DRIVE. TESTED. THEN TYPE i a IF YOU DO NOT 


E RETURN, 
wan Jo TEST 4 beBTects AND THEN TYPE TYPE CARRIAGE RETURN nae 


4.3 RKOP CHAIN MODE 


THE PROGRAM IS CHAIN LOADED FROM RKDP PAK ON DRIVE O. AFTER 
IDENTIFYING ITSELF, THE FOLLOWING MESSAGE APPEARS: 


DRO NOT TESTED. 
DRIVE O WILL NOT BE TESTED SINCE THE RKDP PAK IS ON THAT DRIVE. 
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5.0 


6.0 








GOl 


Pee ACER ADEE lbs oF OMNES Pies to Pace 
teebtt EACH ig : NER As BEFORE. 


DRIVE SELECTION : 
PUT ALL THE DRIVES THAT ARE TO ee EXERCISED AND TESTED ON ’RUN’ 
WRITE ENABLE THEM. MAKE SURE THAT THE "WRT PROT’ IS OFF. THE 
PROGRAM RECOGNIZES THAT THESE DRIVES ARE ON LINE AND PROCEEDS TO 
TEST THEM. OUAL DENSITY DRIVES WILL AAVE THE LETTER F TYPED 
AFTER THE DRIVE NUMBER. 

IF A FATAL ERROR OCCURS ON A DRIVE WHILE THE PROGRAM IS RUNNING 


THE DRIVE IS AUTOMATICALLY DESELECTED (’DSELCT’) AND DROPPED 
FROM THE DRIVE SELECTION LIST. 


SWITCH OPTIONS 
IF ne 4 a I ING A SUIT PROCE 
11734) BROGRAR ae remain Tea, T RE RBROWARE® Sw ITCH 


ieee eed eta 8 ED cee 


, SeSEReaD MOLT. HC I G8 rane" sg a 
C scalt ENT i M3 THE SCOPE ROUTINE BEGINS A NEW TEST. THE 
SOFTWARE’ SWITCH VALUES ARE ENTERED A AN OCTAL NUMBER IN 


RESPONSE TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 
| "SWR = NNNNNN = NEW = 


EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED. 


F THE 
PROGRAM FINDS ALL 16 SWITCHES IN THE UP’ POSITION. ALL SWITCH 
REGISTER REFERENCES WILL ve TO THE *SOFTWARE’ REGISTER AND THE 
PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 


SW<15>=1 ~ HALT on ERROR 
SW<13>=1 NHIBIT ERROR peTOeTS 


SW<11>= OUT 

SW<10>= RING BELL ON ERROR 
SW<09>= LOOP ON SPECIFIC ERROR 
SW<08>= DUMP OUT TRANSFER 


DATA AND ERROR STATISTICS 
RANSFERS 


SW<02>=1 
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SW<O1>=1 


TYPE SERIAL NUMBER OF ERRORING ORIVE 


nme ee a ee re ee me 


ne ee a ee + 
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en 


| 
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re ae ee — ee ene een 
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6.1 


6.2 


6.3 


6.4 


6.5 


6.6 


SW< 15> 

THE PROGRAM HALTS ON ENCOUNTERING AN ERROR, AFTER TYPING OUT THE 
ERROR MESSAGE AND PERTINENT INFORMATION. PRESSING “CONTINUE™ 
RESTORES NORMAL OPERATION OF THE PROGRAM. 

SW< 13> 


THIS SWITCH pestis ALL ERROR MESSAGES. NORMALLY USED WHEN 
LOOPING ON ERROR (SW 9). 


SW< 12> 


IF THIS SWITCH IS SET WHEN AN ERROR OCCURS, INFORMATION ABOUT 
THE HISTORY OF THAT ERROR IS TYPED OUT. 


THE FUNCTION THAT WAS BEING PERFORMED ON THE RK11 IS TYPED 
HEMEL CIE Bee ER SHES: HSU Se ta 
Se Tg ERE DETR TE, oe BS RS. 

SUNT (3's Cc ) ARE ALSO GIVEN. "FOR DRIVE Ea AND 
Beata ant THE DRIVE NUMBER OR WHICH THE OPERATION WAS BEING 
PERFORMED IS GIVEN. 


SIMILAR INFORMATION IS TYPED OUT ABOUT THE FUNCTION THAT WAS 
DONE JUST BEFORE THE ONE GIVING THE ERROR. de 


SW<11> 4 


IF THIS SWITCH IS SET WHEN AN ERROR OCCURS, THE CONTENTS OF ALL 
RK11 REGISTERS ARE TYPED OUT. 


SW<09> 

THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE LOOP. LOOPING 
IS AN ERROR OCCURS. NOTE THAT THERE ARE TWO CLASSES 
OF ERRORS AND HENCE TWO CLASSES OF ERROR LOOPS, REFER TO SEC 8.0 
FOR THE DIFFERNECE IN THE ERROR LOOPS PROVIDED BY SW 9. 

SW<08> 


—F 


WHEN THIS SWITCH IS SET, THE ERROR AND TRANSFER DATA STATISTICS 
WHICH HAVE BEEN COLLECTED UNTIL THAT TIME, ARE TYPED OUT. 

THE TRANSFER DATA STATISTICS GIVE THE NUMBER OF WORDS WRITTEN 

AND ON EACH DRIVE THAT IS SHOULD BE ROTED THAT 


PRESE IT 
ReeD 4 eS AND WRITE CHECK ARE CONSIDERED TO BE ESSENTIALLY READ 


THE ERROR STATISTICS GIVE THE NUMBER OF ERRORS THAT HAVE 
OCCURRED (IF ANY) IN THE FOLLOWING CATEGORIES, ON THE DRIVES 
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6.7 


6.8 


6.9 





O1 


Kite GHECK ERROR 
im Core ERROR 


Ene 
rage WHEN AN ERROR OCCURS THE FUNCTION IS RETRIED TWICE. IF 
Bn PARES PUN hat ate © FOE Mo TE ho 
SW<06> 
NORMALLY THE TRANSFERS ARE DONE BETWEEN THE L LTATT (BASEBA 


AND THE HIGHER LIMIT (MAXBA). THESE THO” LIMITS ARE NORMALLY 
SELECTED BY THE PROGRAM AND USE THE MAXIMUM AVAILABLE MEMORY 


—e 


I THE USER WANTS TO DO_DATA A TRANSFERS BETHEEN SELECTED REHORY 
ADDRESSES (EX: BET AND 16K) THEN THIS SWITCH SHOULD BE 
SET AT THE STARTI THE PROGRAM. THE FOLLOWING MESSAGE 
APPEARS: 
TYPE OCTAL BUS ADDRESS FOR DATA XFER, BETWEEN XXXXXX AND YYYYYYY 
LO LIMIT? 
HI LIMIT? 


IN at USER SHOULD TYPE IN ay TWO BUS ADDRESSES 
(OCTAL) WEEN XXXXXX_ AND YYYYYY. THE USER TYPES IN 
ANYTHING OUT OF THE X AND Y Y RANGE THE QUESTION. IS ASKED AGAIN. 


THIS SWITCH COULD BE QUITE USEFUL IN DETERMINING WHETHER THE 
ROBLEM IS. WIT 


<AITHIN THE RK11 OR OUTSIDE (IN ). Y, IF 
THE PROBLEM IS WITHIN THE RK11, ERRORS WE REeP ON OCCURING 
WHERE IN THE’ MEMORY DATA TRANSFERS ARE TAKING 
PLACE. ON THE OTHER HAND IF THE PROBLEM IS MEMORY RELATED, T 
ERRORS WILL TEND TO DISAPPEAR FOR DATA TRANSFERS TO CERTAIN 
MEMORY Blocks AND WOULD REAPPEAR FOR OTHER ONES. 


SW<05> 
Hal Sattoa Dh a f CAPABILITY TO HALT. THE PROGR 
EIGHT corm fel ttile BEER EXE EUTED THe ste Is 
LOCATED NBECINAT HE OF THE’ GENSRQ’ COOUTINE JUST BEFORE A 
SET Fe N COMMANDS IS GENERATED. AFTER THE PROGRAM HALTS 
THE EXECUTION CAN BE RESUMED BY PRESSING CONTINUE, OR THE 
PROGRAM CAN BE STARTED BACK AT 200 OR RESTARTED AT 210. 

SWw<O4> 


THIS SWITCH PROVIDES THE USER WITH AN ABILITY TO SKIP THE TIME 
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PROGRAM _AT 210 WITH SW 4 


THE INITIAL 
IF 


COND 


SWITCH 4 IS SET 
NORMALLY 


WRITTEN WITH 
PROGRAM AT 210. 


HAVE BEEN DONE) IS Ac 
TO USE THIS SWITCH CAREFULLY. 
N RANDOM PATTERNS 


IT 


Ton fests” 


AT 


TPPED. 





mi ates eae AT 


HE USER tat ; 
my: Se HAVE BEEN 


‘EEFOGE Res TORT ING ne 
ESTS 1-7 WRITE ON 
ARE 


EYL THOERS 0,1. ON RESTART, THE STATISTICS COLLECTED SO FAR 


SW<03> 


THIS SWITCH ALLOWS THE 
Po OCCURRED. THE TIMING 
EXERCISER PROGRAM. 


H 
CLOCK IS NC; AVAILABLE ON THE SYSTEM. 


TYPEOUT OF 


THE ELAPSED TIME AT WHICH 
STARTS AT THE BEGINNING OF THE 
HOULD NOT BE SET IF KW11L LINE 
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c 7.0 EXERCISER PROGRAM 


THE See noeen ae ae heres TO SIMULATE A DISK OPERATING 
400 SYSTEM EVENTS (FUNCTIONS) USI 








q Bree BLAPEING TRANSFERRED” PER Hi HOUR rea “ATYPICAL RRLL/RKOS Beton 
405 (BASED ON 2 DRIVES, POP11/S0, 28K SYSTEM 
4 CLUS eS eR re 






ais One TROLLER AGAIN BEC Y. Fo. os T Ae te 
418 . FOUND, A CHECK EO HABE. 10 SEE 1 THERE TS°A CorRAND HAT IS TO 
4] BE POSITIONED. if see. IT 15 POSITIONED AND THE 

429 C S ED.’ IF IT IS FOUND THAT NO DRIVE BE 
421 POSITIONED (THIS COULD HAPPEN IF THERE IS ONLY ONE COMMAND LEFT 
uae IN THE QUEUE OR THE REMAINING COMMANDS IN THE QUEUE ARE TO BE 
453 PERFORMED ON THE SAME DRIVE), THEN THE COMMANDS IS/ ARE 
424 EXECUTED. 

4 THE ABOVE ALGORITHM HELPS SIMULATE A REAL VIRONMENT, AT THE 
4 SAME TIME MAXIMISING RATE OF DATA T’ HE EXERCIS 
43g | PROGRAM GIVES AN EL TE ERROR DETECTION CAPOBILITY ee 
429 STATE OF THE PROGRAM IS CONTINUOSLY TRACKED BY SOF 

439 FLAGS, ETC. THESE FLAGS AND KEYS H HAVE BEEN, EXPLAINED IN “at DETAIL 
43] ats ; a THE BEGINING OF one LIS 

432 ; UAL DENSITY DRIVES, ONLY ONE LaCTeAL ORIvE. HEY Samrat DURING 
433 rz CH QUEUE BUILD. ours INSURES THAT OVERLAPPED SEEKS WILL NOT 
434 INTEFER WITH THE HEAD POSITIONING LOGIC. 

436 THE PARAMETERS USED FOR DOING THE COMMANDS ARE SELECTED RANDOMLY 
437 USING RANDOM GENERATOR THE FUNCTION TO SE PERFORMED IS 
438 oe reD RANDOMLY FROM ONE OF THE FOUR: WRITE, READ. WRITE 
439 CHECK CHECK. THE DRIVE NUMBER IS SELECTED FROM THE 
440 oe _ AVATLABLE LE DRIVES, THE DISK ADDRESS IS SELECTED OVER THE ENTIRE 
44] , RANGE HE WORD COUNT AND BUS ADDRESS ARE SELECTED RANDOMLY 
rT] AR etCH WAY THAT A NON-EXISTENT MEMORY ERROR OR VERRUN 
“3 CONDITION DOES NOT OCCUR. 

bed 

au RaNDOM TA BLOCKS WRITTEN ON DISK. F 

a4 CTOR get ock S A NUMBER ( ane ST ENENT) INDICATING The 

ua? OrAL NUMBER OF WORDS WRITTEN IN THAT SECTOR. THE REST 

“e WORDS IN THE BLOCK RENERDTED USING THE DISK ARDRESS (OF THA 


SECTOR) AS THE RANDOM SEED 
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LOOPING CAPABILITIES: 


SWITCH 9 GIVES LOOPING CAPABILITIES, ON ERROR. THERE ARE TWO 
CLASSES OF ERRORS: 


A. eens OCCURING IN THE poe CISER PART OF THE PROGRAM 
NUMBERS UNDER 100 IN THE ERROR ITEMS TABLE) 


B. ERRORS OCCURING IN THE EXERCISER PART OF THE PROGRAM (ERROR 
NUMBERS STARTING FROM 100 AND UP IN THE ERROR ITEMS TABLE) 


C. NON-EXERCISER SCOPE LOOPS; IN THIS CASE, THE PROGRAM LOOPS 
ON A SPECIFIC ERROR GIVING A NARROW SCOPE LOOP. THIS SCOPE 
LOOP 15 SIMILIAR TO THE ONE PROVIDED IN THE RK1i BASIC LOGIC 
Test DYNAMIC TEST, WHICH THE USER MIGHT BE FAMILIAR 


ERROR 
SUT THE ERROR MESCAGE) CONTROL 1S TRANSFERRED TO THE 
BEGINNING OF THE COMMAND-QUELIE. THE COMMANDS FROM THE FIRST 
COMMAND ONWARDS, ARE EXECUTED AGAIN TILL THE POINT OF 
THIS LOCPING PROVIDES THE USER WITH A CAPABILITY TO RECREATE 
A SET OF EVENTS THAT LED TO THE ERROR. 


TRANSFER DATA LOGGING 
IN THIS PROGRAM, WHENEVER A DATA TRANSFER TAKES PLACE IT IS 


LOGGED WHETHER IT IS READ, READ CHECK, WRITE OR WRITE CHE 
SEPERATE COUNTS ARE KEPT FOR DATA AK 
DRIVE IN THE SYSTEM. AT 
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10.0 ERROR LOGGING 


ee taal THE EXERCISER PROGRAM, WHEN AN ERROR OCCURS IT [5 
FOLLOWING CLASSES OF ERRORS ARE LOGGED FOR EACH 
DRIVE IN THE SYSTEM: 


CHECK SUM ERROR 

WRITE CHECK ERROR 

DATA COMPARISON ERROR 
ERRORS 


SEEK ERROR 
SEEK INCOMPLETE ERROR 
ABORTS 


THE ERROR STATISTICS CAN BE OBTAINED BY PUTTING SWITCH 8 TO 1. 
THE ERROR STATISTICS CAN BE USED IN CONJUNCTION WITH DATA 
ape Ay STATISTICS TO GIVE AN IDEA OF THE SYSTEM PERFORMANCE 

WORDS TRANSFERRED PER ERROR, CSE FREQUENCY, 
RECOVERABLE VERSUS NON-RECOVERABLE ERRORS ETC.}. 


ERROR REPORTING AND RECOVERY 


load 
ur 


REFE! THIS LOCATION IN THE LISTINGS, IN 
INFORMATION ABOUT THE ERROR IS DESIRED. ate: 


SOME (SYSTEM) ERRORS REFER TO SOFTWARE FLAGS AND KEYS WHICH 
USED TO MONITOR THE ne rent ACTIVITIES ON THE SYSTEM. 


FLAGS ARE EXPLAI 
REFERRED TO, TF THE NEED ARISES. 


a : : 


3 
S 
a 


TECT IVE READY CLEAR ROM 
HE DRI CTION TABLE AND DROPPED FROM FURTHER TESTING. A 
MESSAGE IS GIVEN INDICATING DROPPING OF THAT DRIVE. FOR FURTHER 

ORMA , ’DSELCT’ ROUTINES IN THE 


NF 
LISTINGS. 


AND 
Re COvenPELE ARE RETRIED THREE TIMES. IF THE ERROR 
CONDITION FAILS TO CORRECT OR A_IF_A DIFFERENT ERROR OCCURS THE 
FUNCTION IS ABORTED. N 
ERROR. AFTER Feet ABORT C 
DROPPED. DUAL DENSITY DRI 











4 


MAT 2 | Resmi MACYI1 E7(732) O4-NOV-76 13:35 PAGE 17 


DZRK 

54 

4 

S44 

aie 12.0 SUBROUTINES AND HANDLERS 
aus THERE ARE TWO WAYS IN WHICH MOST OF THE SUEROUTINES USED IN THIS 
Be PROGRAM ARE CALLED: 
ze) 1. THROUGH THE NORMAL JSR CALL 
Bee JSR REG, SUBROUTINE 
554 is *TRAP’ INSTRUCTION. THE TRAP INSTRUCTION WITH 
555 . TS LOWE ENCODED VES AS A CALL FOR ROUTINES. WHEN 
556 ep + TRAP IS Feu A TRAP OCCURS TO THE TRAP VECTOR AND T 
557 DECODER IS THE TRAP DECODER (STRAP) WILL PICK 
ss8 Te eee eve S OF THE "TRAP. INSTRUCTION AND USE IT TO INDEX 
ss9 (STRAPAD) FOR THE STARTING ADDRESS OF THE 
560 OreIReD ROUTINE THEN USING THE ADDRESS OBTAINED IT WILL GO TO 
aes THE DESI ROUTINE. - 
eee 3. SSCOPE - THE SCOPE HANDLER 


th 


THE SCOPE HANDLER IS ENTERED THROUGH THE EXECUT 
INSTRUCTION. IT KEEPS TRACK OF VARIOUS PO 
DECIDES IF LOOPING IS TO BE DONE ON ERROR ( 

we eas HANDLER IS USED MOSTLY IN THE NON-EXERCISER PART 


4. SERROR - ERROR HANDLER ROUTINE 


INSTRUCTION, © THE LOWER BYTE OP THE. ERT 1 


EXEC 

NS 
TO GIVE AN IDENTIFIER TO THE ERROR CALL. mae 
104001 THE ERROR ROUTINE DECIDES IF AN 
iAKEN NDING ON THE peli SETTING (LIKE, 
INHIBIT ERROR TYPEOUT, ETC.) 


MOST OF THE SUBROUTINES RESIDE IN THE LATTER PART OF THE 
PROGRAM. _ THE USER CAN REFER TO THEM TROUGH THE CROSS REFERENCE 
BEGINING. THE END OF THE LISTINGS OR TABLE OF CONTENTS AT THE 


00160 
TITLE ot at ak al 
8 ;*COPYRIGHT (C) 1973 
; #D1GITAL EQUIPMENT CORP. 
MAYNARD, MASS. 01754 


i 
jSPROGRAN BY JIM KAPADIA 


tSTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
S*PACKAGE (MAINDEC-11-DZQAC-CO),MAR el, 1976. 


+ 
00180 ;#REVISED BY GEORGE GALLANT, TOM SAWYER - MARCH 1976 
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00480 
00490 


s*#MISCELLANEOUS DEFINITIONS ' 
AT= 11 > ;CODE FOR HORIZONTAL TAB 
LF= 12 *:CODE FOR LINE FEED 
CR= 1 *:CODE FOR CARRIAGE RETURN 
CRLF= 200 *:CODE FOR CARRIAGE RETURN-LINE FEED 
PSs 177776 ::PROCESSOR STATUS WORD 
.EQUIV PS.PSW 
* STKLMT={ 177774 ;;STACK LIMIT REGISTER 
PIRG= 177772 He INTERRUPT REQUEST REGISTER 
DSWR= 177570 ::HARDWARE SWITCH REGISTER 
DOISP= 177570 * HARDWARE DISPLAY REGISTER 







-SBTTL BASIC DEFINITIONS 
oe Fh tage OF THE STACK POINTER ### 1100 ##% 


TACK= 
-EQUIV EMT,ERROR ;;BASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE ;;BASIC DEFINITION OF SCOPE CALL 








;*GENERAL PURPOSE REGISTER DEFINITIONS 







= %0 ;;GENERAL REGISTER 
Ris “1 ;:GENERAL REGISTER 

= we ;;GENERAL REGISTER 
R3= %3 ;;GENERAL REGISTER 
RY= % ;;GENERAL REGISTER 
RS= “5 $3 REGISTER 

z %& 33 REGISTER 
R7= “7 ;; GENERAL REGISTER 
-EQUIV R6,SP 3;STACK POINTER 
EQUIV R7,PC :sPROGRAM COUNTER 
s#PRIORITY LEVEL DEFINITIONS : 
Pro= oO ;sPRIORITY LEVEL 0 
PRi= 40 :;PRIORITY LEVEL 1 
PRe= 100 ;;PRIORITY LEVEL 2 
PR3= 140 ssPRIORITY LEVEL 3 

2 200 s;PRIORITY LEVEL 4 
PRS= 240 :sPRIORITY LEVEL S 
PRb= 300 ssPRIORITY LEVEL 6 
PR7= 340 ssPRIORITY LEVEL 7 
-#° SWITCH REGISTER” SWITCH DEFINITIONS 
Gwi5= 100000 
SWl4= 40000 
alge yt 
Suii= 400" 
SWid= 2000 
SWOS= 1000 
ari 400 
a: i 

100 
SWwOS= 40 
= 20 
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NNNN 
a oe 
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Pil 


000010 
000004 


o0000e 
00009i 


ee 
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IC DEFINI 
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SWO3= 10 

SWOe= 4Y 

SWOl= 2 

EQUIV £09, sw9 
pouty aH0g, Sue 
“EOUIY Su06' ele 
-EQUIV SWOS,SWS 
EQUIV SWO4, SW4 
EQUIV SWO3,SW3 
-EQUIV SWOe, SWe 
EQUIV SWO1,SW1 
EQUIV SWOO,SWO 
:*¥DATA BIT DEF 

BIT1S= 100000 

BITI4= 40000 

BITI3= 20000 

BITle= 10000 

BIT11i= 4000 

BIT10= 2000 

BITOS9= 1000 

BITOS= 400 

BITO7= try 

BITOb= 1 

BITOS= 40 

BITOY¥= 20 

BITO3= 10 

BIT0e= 4 

Btls 2 

BITOO= 1 

-EQUIV BITO9,BITS 
-EQUIV BITO8,BITS 
um aa 
EQUIV BtTos Bite 
EQUIV fg es 
“pouty 1T03,B81T3 
-EQUIV BITOe,BITe 
-EQUIV BITO1,BIT1 
-EQUIV BIT00,BITO 
-*BASIC “CPU” TRAP 

ERRVEC= 4 

RESVEC= 10 

TBITVEC=14 

TRIVEC= 14 

BPTVEC= 14 

IOTVEC= so 

EHRVE Rs 30 

TRAPVEC=34 

TKVEC= 60 

TPVEC= 64 

PIRQVEC=240 


VECTOR 


>:PROGRAM INTERRUPT REQUEST VECTOR 





INITIONS (BITOC TO BITS? 


DRESSES 


33 IME OUT AND OTHER ERRORS 


;RESERVED AND ILLEGAL INSTRUCTIONS 


iil BIT 


INT 
t INPUT/ GUTPUT APRA (IOT) **SCOPEx* 
He FRAP 
fae HER TOR (EMT) **ERROR#% 


(BPT) 


KEYBOARD veer OR 
by PRINTER VECTOR 








MAT 
OZRK 





SEROS Ia aA LINN SSE LENT ERE CORUM E OB SS SEA LOR SOBRE SEES | 





BS 


: 


C=11-DZRKH-E 
-Pil 


BASIC 
000100 


DEFINITIONS 


003470 


001753 
003470 
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00510 


00540 


00840 
008 





KWLVEC=100 
-EQUIV 


BIT! 
-EQUIV BIT1 
BIT1 


-EQUIV 


p RAL UNUSED we oe FROM 4 - 776 CONTAIN A ”.+2,HALT™ 
CATCH ILLEGAL TRAPS AND INTERRUPTS 
t SLOCATION o CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


33 SOFT DISPLAY REGISTER 
3; 90FT SWITCH REGISTER 


@sSTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 


-2174 
DISPREG: .WORD 
SWREG: —.WORD 
»SBTTL STARTING ADDRESS(ES) 


-SBTTL ACTI1 HOOKS 
Neat gore yar 37 mentee enneesnonmestenetmmemetit 
QUIRED BY ACTII1 


! HOOKS 


-=210 
INCB 
JMP 


;KWIIL CLOCK VECTOR 


Wewe ee eewe ee eewe 


;SAVE PC 


3;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 


332)SET LOC.52 TO ZERO 
3; RESTORE PC 


;KT11 REGISTER DEFINITIONS 


SBTTL MEMORY MANAGEMENT DEFINITIONS 














Z 
§ 


feclecTerleslesTealeclsales]o] 
0 0 ee 
WD NOUT£ Whe 


pI ATIATRATATATATAT StI iat aT 


SS Sie ec ia : 


oT 
or 
ss 
: 
m 


172374 
172376 
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MEMORY MANAGEMENT DEFINITIONS 


00870 


;*#KT11 VECTOR ADDRESS 


MMVEC= 250 
;#KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 


SR1= 177578 
= 1eeie 
s*KERNEL “I" PAGE DESCRIPTOR REGISTERS 


nh 
aa 


2324 
KDPDR3= 172326 


= 


;#KERNEL “I” PAGE ADDRESS REGISTERS 


KI 72340 
KIPARI= 172342 
kK = 172344 


;*#KERNEL “D” PAGE ADDRESS REGISTERS 
nei 
ies: te 
KDP: 172366 


KDpaRS= 178578 
DPARE= 172374 


K = 
KDPAR7= 172376 





J02 
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DZRKHE.P11 COMMON TAGS 








ee .SBTTL COMMON TAGS 
a oS RELKEKRELA ASSES AS KLEE REAL ELHRAAASSRELA SELL LAE FLEE LALAELELLRAFLES 
B44 ATMs TABLE CON CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
Bie 21100 
848 001100 SCNTAG: ART OF COMMON TAGS 
ey 001109 SPASS: .WORD : H conrarne PASS 
001 1 Ge STSTNM: “BYTE : CONT THE TES 
at ° g 
bse att sient: HOR p Heovtalns SEF hero, COUNT 
1110. ERR : RONTA 
Sate bre: Bs Bu He Ye ES FE 
tf S « 
See Lis: Be | RIS AR" EIR EL her 
858 001116 SERRPC: .WORD 0 ian Be OF LAST ERROR , INSTRUCTION 
BSS O00 Kiko 
Biss EOE BSE i eivvale siete & +3" obi 
Bes Bor is8 Sapooe SeDDAT: - WORD f HIG: "BBE USED 
864 001132 o00000 “WORD «0 
865 001134 000 TOB: :BYTE 0 s AUTONAT IC MODE INDICAT 
B66 00115 nooo SINTAG: -BYTE 0 INTERRUPT MODE INDICATOR 
B68 001140 177570 SWR:  .WORD Pour ADDRESS OF SWITCH REGISTER 
B70 poLiNd 177eep grees a7eep OOLSP ADDRESS Saris of REGISTER 
cr Dallse 177eee site: 177eee HET Hg) BIEPER, sen enone 
He BaLise 177566 S1Pe: 177566 . s31TY PRI REG. BODRESS ‘ 
875 potiee bbe sritté. EVIE 2 t CONTAINE SUF eres TERS REQUIRED 
876 001156 Ole SFILLC: .BYTE 12 INSERT FILL CHARS. AFTER A “LINE FEED" 
77 001157 000 STPFLG: .BYTE 0 +:"TERMINAL AVAILABLE” FLAG (BET <7) cBeYES) 
001160 000000 SREGAD: :WORD 0 >:CONTAINS THE ADDRESS FROM 
879 ?:WHICH (SREGO) WAS OBTAINED 
Be) Bolte’ 00000 Sect: “WORD OO CONTAINS. (CaneeaD 42) 
Bae Botte cured SREG2: .WORD O + CONTAINS tt SREGAD) 24) 
883 001170 o00000 SREGS: .WORD 0 >;CONTAINS ((SREGAD)+6) 
get 01172 i SREGH: “WORD : js CONTAINS (($REGAD)+10) 
001174 i GS: -WORD ?;CONTAINS (($REGAD)+12) 
88 001176 O00000 SREGS: .WORD O *:CONTAINS (($REGAD)+14) 
887 001200 op0000 SREG7: :WORD 0 is CONTAINS ((SREGAD)+16) 
eS Bie Bae eae oe 8 Eaten Ce obs 
890 001206 177607 000377 SBELL: .ASCIZ <2079<377 (377) CODE FOR BELL 
891 OOlel2 077 SQUES: .ASCII QUESTION MARK 
892 ole13 O15 SCRLF: .ASCIT is 3 ;CARRIAGE RETURN 
893 001214 oo0012 :  ‘@SCI2 «12> *LINE FEED 
eS4 s8 Mitr irr rriiiit ieee eter rr teen 
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DZRKHE .P1i ERROR POINTER TABLE 


Pistia Part 


arp 001216 

aid 

a4 

aie 

316 

917 

918 

919 

$20 001216 027224 
Jel poles place 
a5 Boise4 | bo0b00 
325 

s 001 

S Bis BG 
3239 O0les 

en O00:234 oo0000 
355 

934 001236 027315 
$35 001240 031322 
936 O01e42 032014 
Fh Go1i2e44% 000000 
Et 

941 00124% 027340 
ae 

946 

aup 001 

aus Dolees palace 
956 O0le6b2 032014 


01020 


ae 


Bese 


Peg a SE ey We a 
SsoSsoouuose0a 


<= 
Oo 


OOOO OOOO HOOOOOOO0OO0O0000000 


G4 hs bs Bs Bs be = Bs Fe Fs Bt he be bP hh be Pb be Bas ps 


Re 
5650 


01 


-SBTTL ERROR POINTER TABLE 
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K0e 





yarn T AINS M3 INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
5; NORE SRRATION 13 08 NG THE INDEX NUMBER FOUND IN 


eel 5, TR ES Iona J ef PTI 


EXPLAINED AS FOLLOWS: 


PTHERE. ARE 


NED BY USING 


ITEM IN THE TABLE CONTAINS 4 


;;POINTS TO THE ERROR MESSAGE 

83 Ae TO THE pate HEADER 
;POINTS TO THE DATA 

: SPOINTS TO THE DATA FORMAT 


TWO CLASSES OF ERRORS: 


i Errors | in Tre ne ISER PART OF THE PROGRAM - ERROR NUMBERS BELOW 100 


ag aca PART OF THE PROGRAM - ERROR NUMBERS EQUAL 


VTE DOCH CPRGRS ORE IFORMLION ON SE or re psocne 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


1 


Ww OO 
= 
~ 


323 


ov0om £ OO 
el 
—e 


om wm 
<= 
Hu 


DT! 


ERROR ON WRITE 
:PC RKCS RKER RKDS RKDA 
j SERRPC SREGO SREGL SREG2 SREG3 


SBT TENPT pap yee TATE FUNCTION ON * BUSY’ DRIVE 
SERRPC $REGO 


;CONTROL READY NOT SET 
;PC RKCS RKER RKDS KDA 
;SERRPC SREGO SREG1 SREG2 SREG3 


;R/W/S READY NOT SET 
:PC RKCS RKER RKDS 
SSERRPC SREGO SREG1 SREG2 S$REG3 


5 CONTROL mre ye a AF Mi hay prerr ON ISSUING SEEK 
SERRPC SRECO SREG1 SREC2 SREGS 





TR ee TA TT it 


Dame. PLl 


PREERSS SE LER LOR SEC ReORE dad Vou Sanco een cee SMO 


P&B Bs Fo Be 


001264 


® REN NSE 


ee 
S Be Ee 


arara 
£MoO 


8888 
tbe ps bee 
w 
~_ 
o 


fies SRBR = SRS 


Se | RBs 


~DZRKH-E 


BSesS8 


WIG 
“No 
oo 


bb & = b= 0 -= b= bh & = Pb 9 


i ie ee ee ee ee 
Oooo 


BaeuseuoEEsaeoS 


E 


o 
-_ 
[=] 


Bk 


3 
8 
5 


: 
a 


a 


| Ee & 
Buseesees 


S 
ax 


Ww 
A} 


2833 


oo 


OOOOOOOOOOO OOOO OOOH OOOO OOOO OKOO0OKOO0OO000000 
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INTER TABLE 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


mm oOo Oo 
a 


Sz 


babe 


++ 


oo 





02 


+ gate gs IN yn at 


Bo, SELB BME, 


;*BUSY’ FLAG CLEAR ON INTERRUPTING DRIVE 
3PC DRIVE 
sSERRPC SREGO 


;POSITIONING’ FLAG FOR INTERRUPTING DRIVE CLEAR 
;PC DRIVE 


;ERR’OR SET AFTER FIRST INTERRUPT ON ISSUING SEEK 
3PC RKCS RKER  RKDS KDA 
;SERRPC SREGO SREG1 SREG2 SREG3 


3CP SET SFTER fe INTERRUPT ON ISSUING SEEK 
RKCS KER RKDS RKDA 
: SERRPC S$REGO S$REGl SREG2 SREG3 


;CONTROL READY NOT SET AFTER SEEK DONE INTERRUPT 
;PC RKCS RKER RKDS RKDA 
;SERRPC SREGO SREG1 SREG2 S$REG3 


$ INTERRUE T Tu ORIVE (SEEK DONE) WAS NOT *BUSY’ 
RKCS RKER RKDS RKDA 
SERRPC SREGO SREGl SREG2 SREG3 


;R/W/S READY NOT SET FOR INTERRUPTING DRIVE (SEEK DONE) 


;PC RKCS RKER RKDS 
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Bes 


Pie 
oo0o 


BIRR 
ooo 


OOOOH V000000000D 


Ob b— b— Ob 2 & = bb -2 bh pb pe pe 


8 


= 


: 


02110 


forururororone 
> b— bb 


Qo 
S8Sds5s8S 


DT 
0 





;SERRPC SRESO SEG! 


;DATA (COMPARISON) ERROR 
PC RKBA_ = EXPCT 


RR 
a RKER 


3° N’ 
ipa RKDS 
;SERRPC SREGO SREG1 SREG2 


;ERR’OR ON DOING SEEK 
3PC RKCS RKER RKDS 
;SERRPC SREGO SREG1  SREG2 


RKCS RKER RKDS 
;CYL SE 


SUR C 
SREGO $REG1 SREG2 


; SERRPC 
;SREGY S$REGS S$REG6 


;SERRPC RKCS RKER RKDS 
EYL SUR eee 

;SERRPC SREGO SREG1 S$REG2 
;SREGY SREGS SREG6 


RECVO 


PSERRPC SREGO SREGI SREG2 


$REGe 


RKD 
$R 





$REG3 


RKDA 
SREG3 


RKDA 
$REG3 


;SCP DID NOT SET AFTER SEEK-WAS DONE 
PC RKER eke 


; RKDA 
;SERRPC SREGO SREG! $REG3 


RKDA: 


RKDA: 


A 
EG3 





DRV# 
$REG3 


ORV# 
$REG3 


;CONTROL_READY CLEAR ON INTERRUPT AFTER RK FUNCTION 
KER RKDS RKDA | 
SSERRPC SREGO SREG1 SREG2 SREG3 





0 b= & > B= 6+ 0+ p= Hy > 


SSSEGREE | 
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on 
— 
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BESRRLO LOSS SERRE ease lolol zaled 


Oe 0 he 0 0 0s be be han = bn Be 2 Be = 2 Be he Bn 2 2 ae pe fs Bae Fo han ho Be Pe B-2 =e Fw me Pan Pa h-2 Hoh -0 b= 0 Pw BH h- O0 
SBIFREBRHLS 
Gese As 
or Fh 


Ce Ce ee ee Se er So Se ee ee ee ee ee 


2 bs 0 bn ao pe pe 
OnNOW CWO 
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030470 
031624 
032076 
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iSEreec Seto Shee. Seece Seeco Saath 


8 °SEg 


ovu00oMmM 





NOe2 





sSTUCK Ih LOOP, 8 G-COMMANDS SHOULD BE DONE BY NOW 
RKCS RKER RKOS KDA 
:SERRPC SREGO SREG] SREG2 S$REG3 


:ATTEMPT TO DO WRITE CHECK BEFORE WRITE 
;PC KEY a al CODE 


pe ert Me REEXECUTE A COMMAND IN PROGRESS OR ALREADY FINISHED 
:SERRPC SREGO 


Peale 50 PROGRESS’ FLAG FOR INTERRUPTING DRIVE IS NOT SET 
:SERRPC SREGO 


;UNEXPECTED DRIVE INTERRUPTED 
:PC EXPCT RECVD 
;SERRPC SREGO SREG1 


; WRONG FUNCTION CODE IN RKCS AFTER INTERRUPT 
EXPCT RECVD 
 SERRPC $REGO SREG1 


;DRIVE READY CLEAR 
iS RKCS RKER RKDS RKDA 
C SREGO SREGL S$REG2 SREG3 









ee ee 
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0 0 0 OF 82 b= = 8-2 B22 b & 02 = = 0 FO = 0 6-2 02 b- « 6 2 0 + 6-2 0 9-2 2 9-2 Bo O- 2 0 2 f 0 &-0 h-0 9-0 2 0-2 <= b-2 §-2 § =H 2 & -« 9-< fH -0 Ho 
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ERROR POINTER TABLE 


92980 :iTEM 35 
2390 
55 031043 030 EN3S —_; DRIVE POWER LOW 
560 031322 03010 BHl 48=s:PC._—=SCRKCS.~—S—CRKER:«=«sRKDS.) RKO 
Eee 032014 03020 OTl  jSERRPC $REGO SREG1 SREG2 SREGQ 
564 00000 03030 0 
03040 
03050 ;ITEM 36 
03060 
Soe 931081 93070 N36 DRIVE UNSAFE 
70 O2132e 03080 1 {PC RKCS KER RKDS —RKDA 
sve O3e0i4 93090 Ti  ;SERRPC SREGO SREG1 SREG2 S$REG3 
574 03100 0 
03110 
03120 ;1TEN 37 
S76 03107 03140 EM37 ©; WPS SET 
031322 03150 DH 86s «$F —SORKCS-»~=sRKER «= RKDS_-—RKDA 
602 Ose0i4 03160 OTi © }SERRPC SREGO SREGI SREG2 SREG3 
604 00000 03170 0 
O31g0 
03200 ;#THE FOLLOWING ERRORS OCCUR IN THE NON-EXERCISER PART OF THE PROGRAN. 
03220 
03230 ;ITEM 100 
606 930312 base EN23  ;DATA (COMPARISON) ERROR 
610 031502 03260 DHos } RKBA EXPCT RECVD RKDA 
bl2 032014 03270 DT]  :SERRPC SREGO SREG1 SREGe SREG3 
614 03280 0 
03090 
03300 ;ITEN 101 
Ba0 
616 031105 EM1O1 ©; INTERRUPT DID NOT OCCUR AFTER WRITE 
620 031322 03330 OH!  :PC  RKCS RKER  RKDS KDA 
B22 032014 0 DT!  $SERRPC SREGO SREG1 SREG2 SREG3 
624 00000 50 0 
03360 
03370 ;I1TEM 102 
03380 
26 O31145 EMI2 5 “ERROR. SET 
630 O31 1 iPC RKCS KER RKDS KDA 
632 032014 0341 DT!  ;SERRPC SREGO SREG1 SREG2 SREG3 
634 00000 03420 
03430 
03440 ;ITEM 103 
DaueD 
6% O3116 EM103 ;RKDA INCREMENTED WRONGLY 
640 O31 03470 DHIO3 ;PC  EXPCT — RECVD 
B42 032076 03480 DT103 :SERRPC $REGO SREGI 
644 900000 0 
03610 ;1TEM 104 
00164 031207 03530 EMIO4 ;RKBA INCREMENTED WRONGLY 
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3 
‘i 
: 
a 





ABLE 
1175 001 1§ 03540 DH103 8 ;PC EXPCT  RECVO 
1128 Boles Bas0%% 03550 OT103 ;SERRPC SREGO SREGI 
1177 001654 00000 03560 0 
1178 03570 
ll O3$80 ;ITEM 105 
1180 03590 
1181 tte 931235 03600 EM105 ;RKWC DID NOT OVERFLOW TO O 
1182 001 031721 03610 DOH10S~—; RKDA = RKW 
1183 O00166e 032076 03620 OT103 ;SERRPC SREGO SREGI 
1184 001664 90000) 03630 0 
1185 03640 
tt C3650 ;ITEM 106 
il 03660 
1188 001666 031265 036 EM106 ;MEX BITS INCORRECT 
1189 001670 031322 036 DH1 ;PC RKCS RKER KOS RKDA 
1190 O00167e 032014 036 OT ;SERRPC SREGO SREG1 SREG2 SREG3 
1191 00i674 000000 0 
11S¢ 03710 
1193 ecO «6;ITEM § 86107 
1194 03730 
1195 001676 030312 0 EMe3 ;DATA (COMPARISON) ERROR ON READ 
1196 001700 931657 DH103 ;PC EXPCT CVD 
1197 001702 OQ32076 03760 DT103 ;SERRPC SREGO SREG! 
1198 001704 900000 03770 0 
1199 03789 
i” 03790 =;ITEM 110 
1e02 001706 031304 03810 EM110 ;WRITE CHECK ERROR 
1e03 001710 031746 03820 DHIIO ; RKER RKBA  RKDA 
1e04 003712 032014 03830 DT ;SERRPC SREGO SREG1 SREG2  S$REG3 
1205 001714 000000 03840 C 


eo ee ee we a et ee ee ee 
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OZRK OR POINTER TABLE 
1 DOI716 «1774 03860 RKDS: .WORD 177400 
1 BoLe 1774 B3870 FKER: ~WORD 177402 
1208 O0l7e2 177404 03880 RKCS: .W 177404 
1209 O017e% 177406 03890 RK -WORD 177406 
lei0 001726 177410 03900 RKBA: .WORD 177410 
leli ae 17741e pert RKDA: tg 7741le. 
lele O01 177416 RKDOB: .WORD 177416 
lel3 001734 177546 03930 KWLS: .WORD 177546 ;STATUS REGISTER FOR KWIIL 
1ei4 nea 
iste 001736 000372 PCNTR: .WORD 250. 
03960 > 
lel? 001740 000220 03970 RKVEC: .WORD 220 ar. RK11_ INTERRUPT VECTOR: ADDRESS 
1518 001742 O000e¢e peep — -WORD 22 :PSW TO BE USED ON INTERRUPT 
le20 001744 000240 O4Y000 - PPRLVL: .WORD 240 ;PROGRAM PRIORITY LEVEL=S. PRIORITY LEVEL 
lez} 04010 :AT WHICH THE PROGRAM OPERATES CAN BE CHANGED 
leee 04 ;BY ALTERING THIS LOCATION. 
ie23 001746 000340 04 KWPLVL: .WORD 340 ;PRIORITY LEVEL OF THE KW1JL CLOCK SERVICE 
i ae —_ 
lee& 001750 1 O406G SRORV: .WORD 177777 ;*SRORV’ CONTAINS THE DRIVE NO WHOOSE SER! 
le27 04070 ;NO IS TO BE TYPED OUT WHEN AN ERROR OCCURS, 
1228 04080 3IF SW_1 IS SET. WHEN (SRORV)=-1 SERIAL NO 
lees 04090 ;1S NOT TYPPED OUT, BECAUSE THE ERROR WAS NOT 
1230 04100 POSITIVELY ATTRIBUTABLE TO A SPECIFIC DRIVE 
1231 04110 
le3e 04120 
te33 0017Se doc 04130 FTITLE: .BYTE 0 
les4 901753 080 041490 FRSTRT: .BYTE ;FLAG FOR RESTART AT 210 
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OZRKHE.P11 ERROR POINTER TABLE 


1235 04160 ;fHIS TABLE CONTAINS (IN ASCENDING ORDER) THE DRIVE NUMBERS THAT ARE 
1236 04170  ;PRESENT. THUS IF 3 DRIVES O e BRE PRESENT: POR WILL CONTAIN PORI WILL 
re i SCONTAIN 1 AND PDR2 WILL Zontatn 2 
i es 001754 000010 00 POR: .BLKB 10 
Leal 001764 900000 piseD DRVPRS: .WORD 0 sCONTAINS TOTAL NUMBER OF DRIVES PRESENT 
1243 04240  ;THE FOLLOWING LOCATIONS CONTAIN SERIAL NUMBERS CORRESPONDING To EACH 
1244 04250 :DRIVE. THE SERIAL NUMBERS ARE KEYED IN BY THE USER, WHEN THE PROGRAM 
1245 04260 31S STARTED WITH SWITCH 1 SET TO 1. THIS FEATURE IS NORMALLY USED IN 
Lee Oye? >PRODUCTION ENVIRONMENT. 
tee 001766 000010 b4e90 SRNO: .BLKW 10 sSERIAL NO’S FOR DRIVES 0-7 
1250 04310 
1251 4 sTHE FOLLOWING 8 KEYS ARE FOR THE 8 COMMANDS IN THE QUEUE, TO BE 
1252 04330 EXECUTED ON DIFFERENT DRIVES. EACH KEY IS ASSOCIATED WIT AN EXECUTABLE 
1253 04340 COMMAND ON THE RKII. VARIOUS BITS OF THE KEY DESCRIBE A COMMAND 
1esi b4350 "AS INDICATED BELOW 
1256 04370 ;<0-2> DRIVE WHICH THE COMMAND IS TO BE EXECUTED 
1257 04380  3<4 Trolceres That THe HEADS ARE BEING/OR HAVE 
1258 04390: POSITIONED ON THE DRIVE 
1259 04400 «3 <5) INDICATES A ’WRT CHK’ SHOULD BE DONE FOLLOWING THE WRITE’ 
1260 04410 <B> NDICATES A WRITE CHECK FUNCTION HAS BEEN INITIATED 
1261 OW420 3<7> ‘INDICATES THAT A FUNCTION IS IN PROGRESS (IT IS NOT SET 
1262 04430; WHEN POSITIONING IS BEING DONE ON A DRIVE) 
ie Beh [OO Tee be cutesy mt te OxeY TLE 
1265 O44E0 = 3<11> INDICATES That FUNCTION CORRESPONDING TO THIS KEY HAS ai’ 
1266 04470; BEEN ABORTED \ 
1267 o4480 «= $< 12> INDICATES HIGH PRIORITY FOR THE COMMAND (NORMALLY 
1 04490; Ea AFTER AN OCCURED ON THE COMMAND) 
1268 O4500 :<14> INDICATES THAT THE COMMAND CORRESPONDING TO THIS KEY HAS BEEN 
04510; ABORTED BECAUSE THE DRIVE WAS DESELECTED (DSELECT) 
| 4221 O52 ?<15> INDICATES THAT THE COMMAND HAS BEEN COMPLETED 
| 1272 : (ALSO SET WHEN COMMAND IS ABORTED AFTER RETRIES) 
Le g3 
1275 002006 900010 KEY: .BLKW 10 sKEY FOR THE COMMANDS IN QUEUE 
1276 04570 
ee Bese RS T FOR E N THE QUEUE 
| 12793 Baesn ARE cromeD Ih A rdege SFr! Re A ‘ERD BITS <8-10> 
| 1280 O4610 :0F Keve, ---KEYB) ARE USED TO POINT 
| 1281 ie :T0 tte Shales a PARAMETERS 
1283 O04 
| 1ee4 o4650 ; WORD 1 CONTAINS RKDA TO BE USED 
| 1285 : WORD 2 CONTAINS RKCS (FUNCTION BITS ONLY) 
| 1286 04670; WORD 3 CONTAINS RKWC (WORD COUNT 2’S COMP) 
1287 46) WODR 4 CONTAINS RKBA 
| 1289 00202 O00040 04700 CNND: .BLKW 40 ;STORAGE TABLE 
| 
j 
| 
L 















30N A DRIVE WHEN THE RETRY COUNT REACHES 3. 
10 


1290 04720 
i531 04730 
lee 04740 ese a ee BUSY FLAGS FOR THE DRIVES. IF A palYs a BUSY PERFORMING 
oie? “is 5 ibtts Bog cont P TIONING) 1 HEN Phe Na io OR THAT 
; 76 SBN 4 uF 3 CONTAIN THE OFF Ft 0 Ki H MADE THE DRIVE 
153s 04770 ; BUSY. 0 00 A WRITE BY Conse 
1236 04780 ;KEYS, HENCE BUSY 1 MITLL C0 CONTAIN 210. NOTE THAT 10 Ws THE 
1c pate SOFFBET FOR KEYS (TAKING KEY AS BASE). KEY #= OFFSET 0-33 /2 +1 
1299 O02leé 960010 0481 BUSY: .BLKB 10 ;BUSY FLAGS FOR DRIVES 0-7 
1300 04820 
1301 04830 
1206 -.840 FLAGS WHEN SET INDICATE THAT A DRIVE IS BEING 
12s baeep BOS! TIONED OR HAS ALREADY BEEN POSITIONED. 
130S 002136 000010 04870 POS: -BLKB 10 ;DRIVE O POSITIONED 
1306 04880 
1307 04890 
1338 04900 
ine raat ;RETRY COUNTS FOR A PARTICULAR FUNCTION ON A DRIVE THE FUNCTION IS ABORTED 
1 
1 


GWIWW) 

SreTs 

twUro 
oo 
££ 
g 





002146 090010 04940 RETRY: .BLKB 
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sDRIVES O-7 RERTY COUNTS 
| 
| 
| 
| 





Berra tie eran nen nn cet punicinis iain 
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DERKHE PL ERROR POINTE riaLe _— 
SIE) 082156 000000 oe WOFLG: .WORD 0 if Cae te IS SET WRITE CHK = coonnae we 
ne a SPHOVYG UB Hon BLES 
1317 002160 000000 O0S000 QSCNT: .WORD QO THIS IS A un FOR KEEPING jag OF THE TIME 
1318 05019 AKEN BY ALL THE 8 COMMANDS IN THE QUEUE. 
1313 pene TE THIS COUNTS DOWN 70 O AN ERROR IS REPORTED 
1 05040 
O02i6e 060000 pepe PRSFNC: .WORD 0 OO TNG PERFORMED ABOUT te PRESENT COMMAND 
OS ORMED ON THE RK11 
002164 900000 05070 PSTFNC: .WORD 0 sCONTAING ups Bae ABOUT THE COMMAND PERFORMED 
05080 PRSCMND’ 


88a 
fe: 
4 


ARRRIRRRAR 
ra 


T : .WORD QO 
PB OEROORE: ‘libep 8 
70 DRVPTR: -WORD 0 
80 DRVCNT: “WORD 0 
05200 
05210 ORV: .WORD O : TEMPORARY REGISTERS USED BY ’GENSRQ’ 
5200 QCyL: © ORD 9 :ROUTINE TO STORE VARIOUS PARAMETERS 
£2 !0F A COMMAND AS THEY ARE GENERATED. 
05240 QSEC: “WORD O 
S255 | GauSaD: “WORD Of 
05270 QWRCNT: {WORD O 
95280 
a) md | 
D500 © ; THIS TABLE CONTAINS VARIOUS MAPPING FACTORS TO BE USED 
05310  ;FOR GENERATING RANDOM PARAMETERS FROM RANDOM NUMBERS 
Peep RNAP: WORD 0 ;MAPPING FACTOR FOR GENERATING RANDOM DRIVE NUMBER 
05340  CYLMAP: | :MAPPING FACTOR FOR CYLINDER 
05350 SECHAP: :HORD 9 :MAPPING FACT CT 
PRRAE,: ORD OO tMAPPING FACTOR FOR FUNCTION 
05370 BANAP: | :HORD ‘MAPPING FACTOR FOR BUS ADDRESS 
05380 CMAP: !MAPPING FACTOR FOR WORD COUNT 
o5400 
419; THESE THQ FLAGS CORRESPOND TO THE @ INTERRUPT HANDLERS (RKI1) USED 
420 IN THIS PROGRAM. WHEN THE INTERRUPT HANDLER IS ENTERED THE FLAG IS 
D543 CLEARED OR SET. 
O5450 INTFLG: .BYTE sFOR "INTHND *, CLEARED ON ENTERING HANDLER 
460 é 'FOR *INTISK’, SET ON ENTERING HANDLER 
054 
05480 
05490 










G03 





styl S.A -TIMER USED FOR KEEPING K 
SS Ae AS a 
‘COMPLETED. IF THE COUNT GOES TO O AN ERROR IS REPORTED. 


_ 
















17 
1308 


ea 


asa ytae wee eae BRE RSS IIIS 


RES 
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00c010 


000010 


000010 


000010 


000010 


000010 
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SORT E CRO TES ONCE THOSE ERRORS. HECK ARE P OSITIVELY ATIRYEUTARLE TO 8 
EDBIVE (NOTE: ONLY THORE, ERRORS WHICH AR Sule 


Teeth RB ERR RI GeD ME RGB OPED Ft 


ERORV: .BLKB 10 COUNT FOR DRIVES 0-7 
KWHR: .WORD O COUNTS HOURS (2’S COMPLEMENT) 
Rev: tees Be GUNES (5-8 Serene 
KWCOUNT: .WORD 0 COUNTS CPS FROM KWIIL (2°S COMPLMNT) 


;THIS TABLE CONTAINS couNTs FOR HARD ERRORS ON A PARTICULAR DRIVE. 
iEX HEC gh WILL CONTAIN THE TOTAL NUMBER OF HARD ERRORS THAT OCCURED ON 






HECN: .BLKW 10 ;DRIVE 0-7 HARD ERROR COUNTS 


5 TuIs TABLE CONTAINS COUNTS FOR SEEK ERRORS 
ON A PARTICULAR DRIVE. 


SKECN: .BLKW 10 ;ORIVE O-7 SEEK ERROR COUNTS 
;THIS TABLE CONTAINS COUNTS FOR SIN ERRORS ON A 
PARTICULAR DRIVE 

SINCN: .BLKB 10 ;DRIVE O-7 SIN COUNTS 

THIS TABLE CONTAINS COUNTS FOR WRITE CHECK ERRORS 

g 





OCCURED ON A PARTICULAR DRIVE 
WCECN: .BLKW 10 ;WCE COUNT FOR DRIVES 0-7 







;THIS TABLE CONTAINS COUNTS FOR CHECK SUM ERROR THAT 
OCCURED ON A PARTICULAR DRIVE 


CSECN: .BLKW 10 ;CSE COUNT FOR DRIVES 0-7 









sTHTS eee Ss conan COUNT OF NUMBER OF FUNCTIONS 
ED ON A PARTICULAR DRIVE. 
FUNCT 1s ABORTED ONLY AFTER DOING RETRIES 
ABORT: .BLKW 10 ;ABORT COUNT FOR DRIVES 0-7 
;COUNTS FOR NUMBER OF DATA ERRORS THAT OCCURED ON INDIVIDUAL ORIVES. 


DATER: .BLKW 10 ;DRIVES 0-7 
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06120 


58 


uw 
oO 





tat atatat ates 


b+ b= bb = p> Hh 


8383S 


SS 





2 
00 


fadaae 








2 WORD COUNT-GIVING TOTAL 


1H MED; OF uo | not ON DRIVE 0 
bf MR: FHP DYE 


SFOR DRI DRIVES 1-7 


;POINTERS TO PARAMETERS FOR COMMANDS IN QUEUE 
; POINTER TO SECOND C 


+4 
4) SERINTEN 10 SLAY COE 
sPOINTER TO EIGHTH COMMAND 


+ CON BE BONES LOWEST BUS ADDRESS STARTING WHICH DATA TRA 
SCONTRING THE HIGHEST BUS ADDRESS TO WHICH DATA TRANSFER 


ea O REGU Hin Br Pa WHEN THIS 
:COu fQHEVER 








03 
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i30 ;HSCII MESSAGES 
1459 O0eS64 005015 O4SS2e3 O0010S O64SO MSGi: .ASCIZ <15)><12>/SKE/ 


TES tice 





bk 
wun 


a 
£ 
4 


1 
2440 gog128 

464 Zw GeOLIE ON7S04 06490 MSGS: © .ASCIZ/ ON DOING / 
465 711) 0201 
1466 1 O42524 ObSO0C MSGb: .ASCIZ /WRITE/ 
Tee Obee4 re 200104 06510 MSG7: .ASCIZ /READ/ 
ies posec 051187 Babies adding beeen Meee: | TASC? “ART CHK, 
142 BOSEED D2122 O4INHO OYSSIO ObS30 MSG9: .ASCIZ /RD CHK/ 
‘1473 DOSE? __GIS ONOYI2 OY7SO2 OGSHO MSGIO: .ASCIZ <15><12>/ABORTED/<15) «12> 
1474 002574 OS2l22 O42105 OOS015 
1475 002702 
1476 002703 123 O4250S 000113 06 MSGI1: .ASCIZ /SEEK/ 
1477 002710 O0S0IS O41520 06560 12: IASCIZ <15><12>/PC=/ 
1478 02716 O¥41e0 051531 ON1040 6570 MSG13: -ASCIZ /PHYS BAS/ 
1480 002727 O15 ON7DLe 20117 ObSEO MSGIH: .ASCIZ ¢15)<12>/NO DRVS PRSNT/ 
1481 002734 OS11 1526 050040 | 
Wee Oderte OSibe2 Obei1 
1483 00274 O15 O420le OS3ic2 06590 MSGIS: .ASCIZ <15><12>/DRVE # DIDN’T INTERUPT AFTER / 
1464 002754 020105 044504 

002762 047104 44440 

002770 052116 050125 

rt beo1e4 043101 04 

O15 o4s4ie 06600 MSGI6: .ASCIZ <15)<12>/KEY-8 BUSY-7/ 


/ SR NO/ 


a 
Soll 
Boi 

Re 
2 
a 
o 
3 
Oo 
8 
a 
x 


000 ; 4:4 
1 pS1iet 06630 MSG19: .ASCIZ <15><12>/ DROPPED DRIVE # / 


Secs 


000 ' 
a8 OWWSe2 O6640 MSG20: .ASCIZ <15)<12)>/DRIVE/ ‘ ; 
le 050105 O6650 MSG2l: .ASCIZ <15><12>/REPLACE DRO RKDP-PAK § TYPE CR, IF NOT PUT DRO ON LOAD/ 


Soflos 
28 


re 


is! 


8 
® 
P22N2SR 


= 
rw 
- 


SERRE GRO SEs RRL SERA 


Oe0060 O6S60 MSG23: .ASCIZ <15><12>/DRO NOT TESTED/ 


BO 2d bt hs a hs hb Be fh bo bb Be 2 he pe ht eee 


ininin 
tro 
rinisiniieisinets 
PERLESR 

? 

OD 

ow 

Bass 


| 
i 
! 
! 


KO3 


O4-NOV-76 13:36 PAGE 37 


MACY11_27(732) 


ERROR POINTER TABLE 


11-DZRKH-E 


MAINDEC- 
Sina" es 








oe 
uJ 
- 
& 
lu 
Ga 
= 


CSE 


(15)<12>/UNABLE TO CLEAR ERROR AFTER THREE TRIES/ 
(15><12>/ERROR CONDITION CLEARED ON RETRY & / 


(15)<12>/DRIVE WROS WRITN WROS READ 


& Van 
nin Ny N ean 
POP a ga mated 
ae 8 = UEP RS 
B88 8 8 Bese3 


o Saspeyeg ammmpeaey 
HUAN: ZuSRNNES IY ca 
. sen seeeateess 


St SPE ease a 
; Saas Bane 


ee 


Rictaicii DINAH TRInIRi IM TRIRTRGRS IRI TR a td 


St Rea Tete Kea Kee lee en heh ame Ram Roms Nek er een Keene Tee oe Doo Tee ne te ee ee) WisuRininihinin 








te ne te ee 


wa eee me wo ee ee + a ee et 
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DZRKHE.P11 ERROR POINTER 
1S49 
1230 004737 022260 
tes: pacha 105237 001753 
1e34 
1 
1556 
a4 00347C 
1 
1559 
1561 003470 012706 001100 
1205 74 2b 
1 76 001140 
1564 003502 001374 
1eeP 003504 012706 001100 
ish tt piers? 026612 
ises Ree ie beeyee 
1s7e Suse Hee pogs6 
1 003554 7. 
iene 003562 012737 O03S62e 
1 
1378 003570 013746 oO0004 
1878 003574 Oi2e737 002630 
1878 003602 Ol2e737 177576 
izee teat 012737 17730 
iBee ats 
Pee Te OO nn3636 
1586 003634 000002 
t24 oe peas 000176 
is9e DOSEN Dle7a7 
1S90 
12a 
1235 003656 005227 177777 
1894 O00366e 001052 
ie 003664 104400 003722 
1597 70 737 od00042 
isso Siem Goiobe Or 
1733 oston 001005 
1601 003706 LOO 
iba eats eee 00000! 


TABLE 
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06780 


;{F POWER FAILED, ON RETURN OF POWER ENTER HERE. 
PFSTRT: JSR PC WATIME ;WAIT SOME TIME 


INCB = FRSTRT INDICATE THAT THE STATISTICS HAVE 
TO BE SAVED, ON RETRN FROM PWR FAIL. 


START: 
sFELEAR The Gono | lis (SoniAG) Bas 
MOV ssFIRST LOCATION TO BE CLEARED 


CLR ;;CLEAR MEMORY sanantnent: 
CMP aSuR % Wie 

BNE --6 ;;LOOP BACK IF NO 

MOV #STACK, SP ;;SETUP THE STACK POINTER 


ss INITIALIZE A FEW VECTORS 
MOV SSSCOPE, JHIOTVEC ;;I0T VECTOR FOR SCOPE ROUTINE 


HOV ato SHICTVEC : sileve. 7 {VECTOR FOR TRAP CALLS 


#340 ORTRAEVECES LEVEL 
SSPHRON SEPURVEC POWER FAILURE VECTOR 


MOV #PURVEC+2 ;; 
MOV + SLPADR 3 * INITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV #. |SLPERR LOOP ADDRESS 
;;SIZE FOR A HARDWARE SUITCH reciSTer. IF NOT FOUND OR IT 1S 
EQUAL TO A “=1 FOR A SOFTWARE SWITCH REGISTER. 
MOV aheRnvec. (SP) ;;SAVE ERROR VECTOR 
MOV oon SEERRVEC. tery UP ERROR VECTOR 
MOV SWR 3 ;SETUP FOR A HARDWARE SWICH REGISTER 
MOV SDDISP, DISPLAY ;:AND A DISPLAY REGISTER 
CMP #-1, 3SWR >;TRY TO REFERENCE HARDWARE SWR 
BNE 665 ; BRANCH IF NO TIMEOUT TRAP OCCURRED 
' 3 7 AND THE HORDWARE SWR IS NOT = ~1 
BR bs$ IF NO TIMEOUT 
64S: Hoy #655, (SP) ticeT UP FOR TRAP RETURN 
65S: MOV isPOINT TO SOFTWARE SWR 
MOV eSIcPneG,D DISPLAY 
665: MOV }+,d8ERRVEC ;;RESTORE ERROR VECTOR 
.SBTTL TYPE PRO 
:: TYPE THE NAME OF Beate PR PROGRAM IF FIRST PASS 
INC #-1 sFIRST TIME? 
BNE 675. ; BRANCH 
TYPE TYPE ASCIZ STRING 


.SBTTL Ger vate’ BS. SOFTWARE sliten REGISTER 
TST #42 SABE WE RUNNING UNDER XXDP/ACT? 

o5¢ ER ANSH IF YES 
CMP SWR, #SWREG +: SOFTWARE SWITCH REG SELECTED? 


BNE 70S" ;;BRANCH IF NO 
GTSWR 5 ;;GE7 SOFT-SWR SETTINGS 
69S: MOVE #1,SAUTOB 3;SET AUTO-MODE INDICATOR 


708: 


} 
' 
} 


MAINDEC-11-DZRKH-E 
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-Pil GET VALUE FOR SOFTWARE SWITCH REGISTER 


1680S 003720 000433 


DZRKHE.P1 

fe 
1 

| 

i 

| 

| 

| 


025634 000 

001744 000032 
Oee2e02 000100 
00174 000102 be 


ii 88: 

900 ’ #SERROR, JHEMTVEC 
06910 MOV PPRLVL, OHEMTVEC+2 
06920 MOV #KWSRVE, JSKWLVEC 

930 MOV KWPLYL, d#KWLVEC+2 


BR &7$ + GET 
-ASCIZ <CRLF>*#MAINDEC-11-D2RK 


OVER THE ASCIZ 
H-E RK11/RKOS PERFORMANCE EXERCISER#<CRLF> 


;EMT VECTOR FOR ERROR ROUTINE 
*KWIIL CLOCK SERVICE 
LEVEL 7 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


; THE pL eis oe FINDS OUT THE PROGRAM CONTROL 
;PAPER TAPE ( , ACTI1, RKDP CHAIN OR DUMP 





oowe4o 005737 ocod4e 
Bee ee cco 
1e88 Bouoss ai4i3 
ib28 OOMOSE 112737 000001 
ie Bae der, ome 


1626 004076 105737 O0004i 
004102 O01416 









te bis? oy cova CONTAIN 27 
20, FLAG SIND ICATING oie 1 eres bs 


00 BAG SRT © 
ae 





1 
ie 004104 104400 003075 
1630 004110 104407 


163 
teas outie NS7e 
OO41l22 OOO411 


634 
635 
ee 004124 104400 003166 

004130 112737 O00001 
628 000403 









639 
640 CO414O 112737 C00001 


;BOP 
T FLAG INDICATING RKOP DUMP MODE 


;SET FLAG INDICATING RKDP CHAIN MODE 


;SET FLAG INDICATING ACT11 MODE 





2 | Se RRR ee A ER ae A A RS A 


Oe es ne ee 


nr eee tee ce es Cee ee ere or One ee ee 





Se 
~S 
eeeeeeeeees 


? 
~ 


LEELA: 
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H-E 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


97250 Sie: ey RESET 


1 
ipeaas 001764 07260 Le DRVERS 
a 
001754 072 ELR 
001756 ELR POR+2 
cy Bt Cn 
001? ? CLR POR+6 
12701 001754 67330 HOV aFOR, RL 
1 poseet 5 TSTB = RKDPCH 
O10 07360 BNE 
1 175506 07370 15: MOV R2, IRKDA 
032777 000200 175466 07380 BIT #200, IRKDS 
001410 07390 BEQ 3 
012777 oo01s 175462 ra HOV = #15, aRKCS 
110021 go 2s: MOVB RO, (R1)+ 
010223 7440 MOV Re’ (R3)+ 
005237 001764 o7usG INC DRVPRS 
M2702 020000 Soaso 3$ ADD 820000, R2 
ONS nr tt INC RO 
022700 000010 07500 CMP #8. ,RO 
001354 57510 1$ 
013703 001764 07530 MOV DRVPRS, R3 
bie70l 001754 : HOV apOR, Ri 
ocsode 07560 CLR R2 
104400 003065 07570 TYPE  ,MSG20 
005703 07590 TST R3 
111102 est, 4S: MOVB (RL) .Re 
010200 07620 MOV R2,RO 
002472 07630 BLT 9s 
104400 003207 prec TYPE  ,MSG24 
O102%6 BES Hoy R2,-(SP) 
: Oot B7e80 BY 1 
000 07700 “BYTE 0 
1 CLC 
85750 See 
07740 ROR Re 
006002 07750 ROR Re 
SOb00¢ 077 ROR Ro 
4 017777 o7070 BIC #17777,Re2 
010237 od02202 07790 R2, QDRV 
104417 07800 ORV. RESET 


;FIND WHICH DRIVE #‘'S ARE PRESENT 


;CLEAR DRIVES PRESENT TALE 


;DONT USE DRIVE ZERO IN CHAIN MODE 


;SELECT_A DRIVE 


315 IT IN SYSTEM? 
;NO 


;PERFORM A DRIVE RESET 


;STORE THE DRIVE NUMBER 
s STORE ADDRESS IN KEY TABLE 


THE NUMBER OF DRIVES COUNTER 


;NEXT DRIVE ADDRESS 
;NEXT DRIVE NUMBER 


;DONE ALL DRIVES??? 
LOOP TILL DONE 


;FIND WHICH DRIVES ARE TYPE F 


;ANY DRIVES TO DO 
;GET DRIVE NUMBER 


; TYPE THE ORIVE NUMBER 


TO CARR 
TO BI 
TQ BI 
TO ne 


oye DRIVE GER TO BITS 15,14, 13 


RANEOUS BITS 


;RESET THE DRIVE VIA QORV 





© 
=e 
4 hh 
*o 


o 
3 


1708 


datsddaesage 


dees 
CURR Sie ce gee 


RORAR RASS 


MACY11 £7(732) 


020000 
020000 


020000 


aoae00 


001213 


175310 


175304 
175270 


175250 


174454 


04 
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H 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


O7e20 


a7e0 


Lo liel=) 


suesaaasnaas 


: 


Carat tt 


SESRERRERR 
bSd6658868 


S$: 
6S: 


SS 35 mass 


~4 
w 
~4 
bre) 


2 ie 
3 On 


3 





#20900, R2 
S$ 


#20000, Re 
6$ 
#20000, Re 


R2, IRKDA 
#200, JRKDS 


#11,aRKCS 
#100, dRKDS 
8$ 


#200, (R1) 
,MSG2S 
#100, IRKDS 
7$ 

FRSTRT 

95 

8SW1, ISWR 
95 


»MSG17 


RO 
(SP)+, SRNO(RO) 








sEVEN DRIVE i eel 
3NO - CLEAR BIT 


tea IT AN ODD DRIVE 


;MAKE IT AN EVEN DRIVE 


7 SELECT THE NEW DRIVE 
SURE DRIVE IS _IN SYSTEM 
IF NOT, SKIP THIS TEST 


3 START A SEEK TO CYL O 
FOR CONT R 

1S IT_IN MOTION??? 

:NO = J TYPE ORIVE 


;YES - SET THE F TYPE BIT 


;WAIT FOR HEADS TO STOP 


;SERIAL NO. SW SET? 
3NO 


;READ FROM TTY INPUT 
;SAVE SERIAL NO FOR THE DRIVE 
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1736 08210 ;’MAXBA’ IS THE HIGHEST BUS ADDRESS (MEMORY) TO WHICH DATA TRANSFERS CAN 

1737 beced BE DONE BY THE PROGRAM. 

1738 823 :*MAXBA’ IS FIGURED USING THE FOLLOWING ALGORITHM: 

1740 0 31. IF_KT11 IS NOT PRESENT, 

174] A. @ND THE IS RUN UNDER XXOP, THEN THE TCP 1.5 K IS RESERVED 

1742 08270 ;AND THE ’MAXBA’ IS COMPUTED ($LSTAD-6000). 

1743 ogee *B. AND THE PROGRAM IS NOT RUNNING UNDER XXDP THE TOP 320 WORDS 

rsa Og2 SARE RESERVED FOR ’MOM’,LOADER,ETC. AND THE PAAKBRT 1S COMPUTED <(S$LSTAD-S00). 

1746 pe308 2. IF KT11 IS PRESENT, 

1747 08320 3A. AND MORE THAN 2SK MEMORY IS PRESENT, THEN THE MAXIMUM BUS ADDRESS 

1748 08330 318 147776 (OCTAL). 

1749 08340 ;8. AND LESS THAN 28K IS PRESENT, THEN THE TOP 2K IS RESERVED FOR RKOP 

1750 *MONITOR AND ’MAXBA’ IS COMPUTED. 

171 FIGURE OUT THE AVAILABLE MEMORY AND ’MAXBA’ 

1753 004514 004737 017132 be300 ST4: JSR C,$SIZE GO SIZE THE MEMORY 

1754 004520 012702 08390 MOV RGASERA R2 INITIALIZE POINTERS 

1755 004504 Ole703 O002554 08400 MOV sMAXBA, R3 

1756 gov530 005737 017216 08410 TST SKT11 sKT11 AVAILABLE? 

1757 100022 08420 BPL 4g : 

1758 004536 013700 017464 08430 MOV SLSTBK,RO °GET THE LAST BANK OF MEMORY 

1759 o04S4e2 001540 08440 CMP RO, #1540 *28K OR MORE? 

1760 OO4S46 O0e0l2 bes BGE 3$ :YES 

1762 OO4SSD 162700 o00040 08470 SUB #40, RO sBACK UP 2 K’S (RKDP MONITOR, ETC.) 

1763 004554 012701 177772 OB480 MOV $-6,R1 “AND FORM THE MAXIMUM BUS ADDRESS 

1764 084 FOR DATA TRANSFER 

1765 OO4S60 006300 0ssoo (1S: ASL RO 

1766 O04562 005201 08510 INC RI 

176? 004564 001375 08520 BNE ub = 

ie Ger dee Es, we 

1771 OO4S74 012713 147776 08560 35: MOV 8147776,(R3)  ;FOR 28K OR MORE, THIS IS THE ’MAXBA’ 

i a ne peean “ia 

1774 OD4602 013700 017462 08590 4S: MOV SLSTAD, RO sKT11 NOT PRESENT, GET THE LAST 

1775 O8600 AVAILABLE ADDRESS 

1776 0861 

1777 OoH606 S55 002560 08620 SS: TST RKDPDU sRKDP DUMP OR CHAIN MODE? 
| 4778 le 001 BNE 8S : YES 
| 1779 OO¥614 162700 oocsoo 40 SUB #500, RO NO, SAVE THE LAST 320 WORDS 
3780 O04620 ooosde 08650 BR 6$ 

1781 OO04622 1 006000 08660 8S: SUB #6000, RO sSAVE THE LAST 1.SK OF MEMORY (RKDP 

1782 086 *MONITOR, ETC. ) 

1783 O04626 010013 pePan 6S: MOV RO, (R3) OVE THE MAXIMUM BUS ADDRESS(MAXBA) TO 
| $784 08690 ;WHICH DATA TRANSFER CAN BE DONE SAFELY 
| 785 004630 012712 032106 08700 75: MOV wPGEND (Re) > *BASEBA’ 

1786 004634 032777 000100 174276 0871 BIT b, aSWR 

| 4 Oo4G42 O01SI0 087 BEQ 

' 788 OOME44 1 oo4ese2 TYPE 655 33 TYPE ASCIZ STRING 
| 4789 QO4ESO O0043e2 BR 645 T OVER THE ASCIZ 

1790 +2658: .ASCIZ <15)<12>/TYPE OCTAL BUS ADDRESSES FOR DATA XFER, BETWEEN / 

1791 004736 64s: 
| 
} 






















O04 
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DZRKHE.P11 GET VALUE FOR SOFTWARE SWITCH REGISTER 
1792 004736 011246 08740 MOV (R2),-(SP) ; BASEBA’ 
1793 oon 104401 08750 TYPOC 
1734 1 004750 TYPE 675 TYPE ASCIZ STRING 
1795 OO4746 00402 BR bbs *:GET OVER THE ASCIZ 
1°36 --67§: .ASCIZ / 8 / 
1 004754 bés: 
1798 004754 911346 08770 MOV (R3),-(SP) ;MAXBA’ 
1799 104401 08780 TYPOC 
iso 004766 nthe tad os a TYPE ASCIZ STRING 
ise 764 Apoaoe BR 683 *:GET OVER THE ASCIZ 
1803 69$: .ASCIZ <15><12>/L0 Limit? / 
1804 oos004 68s 
1805 Oud RNOCT ; 
180 1 0881 (SP}+.RO 
1 020012 08820 CMP RO, (Re ;CORRECT LO LIMIT? 
1808 03762 08830 BLO Sy 
1809 Of 13 08840 CMP RO, (R3) sCORRECT LO LIMIT? 
1810 1 08sso BHIS 9 
1811 005020 o10012 08860 MOV RO, (R2) ;BASEBA’ 
igie goe0ee 08876 10S 
1813 104400 005030 TYPE 71$ 3; TYPE ASCIZ STRING 
1814 005026 000407 BR 0$ *:GET OVER THE ASCIZ 
1815 --71$: .ASCIZ «15><12>/HI LIMIT? 7 
1816 OOSD4 dds: 
181 DOSD46 104411 08880 RDOCT ay / 
gig peepee 12 pescn CMP R3 sCORRECT HI LIMIT? 
1820 905054 101362 08910 BHI ¢ 
1821 005056 20012 08920 CMP PO, (Re) sCORRECT LO LIMIT? 
1822 005060 101760 08930 BLOS }~=s«108 
iges 005062 010013 MOV RO, (R3) ;MAXBA’ 
1825 O0S064 ST3: CMP MAXBA,#37476 § ;8K MEMORY - CLOBBER XXDPT 
1826 005072 GE 1S 
1827 005074 012737 MOV 837476,MAXBA § ;BUT SAVE LOADER 
1828 1S: TSTB —s« FRSTRT ‘PROGRAM RESTARTED AT 210? 
1829 1 BEQ BCTST : 
1830 YES, SKIP TEST 1 10 7 






una 
5 
8 
8 


pe ee 
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FOY 
DZRKHE.P11 GET VALUE FOR SOFTWARE SWITCH REGISTER 
9090: THIS, 1S. THE BEGINING OF THE CONSTRAINED TESTS AINED AT CHECKING THE 
| 
i 
! 
| 


scone eceire FER GERD. OUI" OPNE NNER, TO B.TESTD se orn vo om 
r7eoua Bbseue 59080 NXTDRV: if Shey ae telis | s ie-ia) 


oo000e ij 
002200 11 C s2-DavPt DONE ALL pai es? 

91 L TSTI GO TEST THIS DRIVE 
007534 091 


ERAN SLi 


HSERKSVS 





30 IMP EXRCSR Ace DONE, GO TO EXERCISER PART 


eran EEE aS ES — 








a 3 | a 


anon f 


02 0 9 p= pe 
2 
~“ 


RP RoR CoM eo Se 
R 
: 


BEERS RRARELS: 
igh 
38 
R 


111111 
000401 
006046 


737 017604 
017620 


737 017722 


000010 


009012 
000016 


PERFORM ik erat ) 





001110 























GO4 
O4-Nov- 


AGE 46 
OF 401 S ti i’ ecrons + 1 WORDS) 
HHTEsT 1" Peron uRITE OF 401 WORDS (1 SECTOR +] HOROS) 


ieee ngs rest perconny A 5 IRIE race wore Use OR + AOR ORD) ANC 


C RKWC INCRE D connect, ton IS DONE 
:ON CYLINDER SURFACE SECTORS Oy AND 10,11. IT SHOULD BE 


"NOTED THAT THIS IS A BOUNDARY COND ton TRANSFER. THE VALIDITY 
: OF THe T 15 CHE KED IN fone hex TEST. 
‘DATA PATTERN WRITTEN IS 111111 


7S il aiieiehaieiehehieieheeiiiehieieeeeieieieiee 


; +éT1: 
09250 MOV QDRV. RI ;GET_RKDA 
09260 MOV R1,Re :SAVE RKDA 
092 ADD #2;Re .  }EXPCTD RKDA AFTER WRITE IS DONE 
09290 MOV #1$, SLPERR ;RETURN ADDRESS FOR LUPING 
p33 33 ti 18: CON. RESET 
03320 DRV.RESET 
CON. RESET sCLEAR MASK BITS IN POLLING LOGIC 
09346 2S: MOV $111111,DBUF | ;PATTERN TO BE WRITTEN 
03350 MOV #401,R3 : FOR WRITE 
JSR PC, DOWRITE 360 DO WRITE s 
09380 ERROR 01 s INTERRUPT DID NOT OCCUR AFTER WRITE 
09390 ISR PC. CHKCS *CHECK ERROR BIT IN RKCS 
09400 ERROR 102 “ERROR BIT IN RKCS SET ON DOING WRITE 
09410 ISR PC, CHKDA "CHECK IF RKDA INCREMENTED RIGHT 
09420 ERROR 103 *RKDA DID NOT INCREMENT RIGHT AFTER 
09430 A WRITE OF 401 WORDS. 
JSR PC, CHKWC CHECK IF RKWC OVERFL 00 
ERROR 105 RKWC DID NOT OVERFLOW TO O AFTER 
401 WORDS. 
70 BIT #10, Ri CTORS 10,11 WRITTEN? 
80 NE S 
09490 ADD $12, R1 RKDA TO BE USED NEXT (SEC 10 
095 #16,Re2 C 
09510 2g ’ 
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K THAT 401 WORD WRITE WAS DONE CORRECTLY 


$ best 2 READ B CHECK THAT 401 WORD URITE WAS DONE CORRECT y 
; : BF Le THE WR TEN IN $ne 


HECKS THAT THEY WERE CORRECTLY READ. MOREOVER 
WORD (401TH 


w 
a 
o~ 


G2 ho ne Ga pe Pe 


ee R eR Ree 


witless i bininssh TTP Tat 
8 


SoSaunASERS 


Be 


Bt Bs bb b= at se bh eb a be Be Be fs F-2  = D = H— O— h  h  s h h O -e he bh =H 2 fh be b= He Ps Pe HH 
— 
R 


REBRE RINT 


-_ 
S 
“Ni 
o 


HO4 





;PREVIOUS TEST AND C : 
dt ere THAT ONLY ONE NON- TH) WRITTEN IN THE 
;9EC CTOR AND THE REST OF THE WORDS ‘ 

ss + al aaah 


tSTe: 





MOV QDRV,RI1 GET DRIVE # 
MOV 81S, $LPERR *ADDRESS FOR LUPING ON EROR 
1S: CON. RESET 
DRV.RESET 
CON. RESET 
;CLEAN UP THE DATA BUFFER 
ISR PC, CLEANBUF :INTO WHICH READ WILL 
Mov  #1000,R3 ;WORD COUNT a \ 
kL ‘a 
ISR PC, DOREAD :G0 DO A READ OF 2 SECTORS 
>FROM DISK ADDRESS GIVEN IN R1 
ERROR 101 > INTERRUPT DID NOT OCCUR AF 
*READ OF 401 WORDS WAS . 
JSR PC. CHKCS >CHECK IF EROR BIT IN RKCS SET? 
ERROR 102 *EROR BIT IN RKCS SET ON DOING 
"READ OF 401 WORDS. 
MOV »RY ‘STARTING BUS ADDRESS, INTO WHICH READ 
MOV RY, R2 “WAS DONE 
JSR PC’ CHKBA >CHECK IF RKBA INCREMENTED RIGHT 
ERROR 104 sRKER bID NOT INCREMENT RIGHT AFTER READ 
MOV #-14,RS ALLOW 12 ERRORS, AT THE MOST 
2s: che a111111, (Re) i CORREC DATA READ? 
MOV #111111,SREG1 3GET EXPCTD DATA WORD 
JSR PC. ERIN 1 *GET ERROR INFORMATION 
ERROR 100 *DATA ERROR OC WHEN A 
*READ OF 401 WORDS WAS DONE 
>THE DISK ADDRESS WHERE 
*THE DATA WAS READ INCORRECTLY 
IS GIVEN IN THE ERROR MES 
INC sREPORT 12 ERORS AT MOST 


6 
(R2)+ s INCREMENT POINTER 

CMP Re, aDBUF +1002 CHECKED ALL 401 WORDS? 
(R2) ;CHECK THAT REST OF 377 WORDS 

Q 3 "ARE ALL O'S 
CLR SREG! sGET XPCTD DATA WORD (0) 
ERINF1 GET ERROR INFO 

106 "DATA ERROR. IN A PREVIOUS 


“TEST A WRITE OF 401 WORDS 
*(1 SECTOR + 1 WORD) WAS DONE 















u 


READ & GHECK THAT “Ul WORD HAITE was BONE CORRECTLY 


Id 


| tee 


Pll 


DaRKHE 


WRITTEN BEFORE) 


WORD 


ALL ZERCS, IF 
WAS DONE CORRECTLY 


S DONE CORRECTLY) 


i 


(WHICH ws 


ITHE REST OF 


;NOW THESE 2 SECTORS WERE 


iBED 
WORD 


(& READ 


; THE WRI 


; SHOULD 


1936 


FROM SECS 10,11 


8 $e 
eR 38 
2 3 S 
Sttt- 
x 35 = 
plead 
4 Zs Stes 

8 

i 

28 Ge 
watgie Sate 


Sate Fee 
“MO o io 


oA al 
wn o 


034106 
000010 
000012 


ieee Bose 


cece aes 


READ BACK FROM DISK. 
READ BEGAN. 


SS (WHERE DATA ERROR OCCURRED). 


ADDRE 
THAT WAS 
WHERE 


SS OF DATA ERROR 


TA WORD (READ) 


QUT THE DISK ADDRESS 
RE DATA ERROR OCCURRED 


rye) 
aint 4 3 
pag 8 & ae 
Ma IAN Ser esto 


Seebsutauowees 


aie: 
sag 88 83 
PPh. no9y.o 

SSN aaEN Ee 


ee 


ROLE TESTES SECT RRR AC RRT ARPA RE Sots 


Sm Reem Bean Kea Reem, Kant Keen Keath Keen Keten Reem Keen Kore Rook Roe Keen Kore Kee Keen Kee De Dee ee ee Deen re ne ee ee ee ee ee ee eee eee) 






ee ween ee | 
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Pil T3 PERFORM WRITE OF le SECTORS + 1 WORD 


1328 FEST a ne rePEREOML RITE OF Le SECTORS + 1 WORD” 
1978 , s THIS TEST CHECKS FOR ANO : a IT 
134 RKC ene Gueceed f fo ae oRs,* ide od TED CORRECTLY. 
1363 fs eA TA Ie uit AN Nn eectS geen? dh : 

1385 HEVLINOER 0 (660 iTTEN On ec roRe 6 Linaveeree er aE 
1984 ALSO ON SE BRe Ont. BURT ACE 1 1 (6001TH WORD 

is es reid A maladie me 8 mesa ane 
1 goss3 oo00004 tS13: 

1988 013701 od2202 10600 MOV QDRV,R1 GET DRIVE # 

1989 goss¥e 012737 O0SS62 001110 10610 MOV #15, $LPERR *LUP ON EROR TO ’1$” 

1990 10102 10620 MOV Rl, Re 

1991 005552 000021 10630 ADD #21 Re 

1992 05556 b1e703 006001 10640 MOV #6001,R3 

1993 005562 10441 10650 1S: CON. RESET 

1994 Oo=5b4 104417 10660 “RESE 

1995 104415 10670 CON. RESET 

ue i 

1998 005570 012737 O44444 032106 10700 MOV #44444 , DBUF sPATTERN TO GE WRITTEN 

2000 005576 004737 OD604 10760 ISR PC, DOWRITE :GO DO WRITE 

2002 O0S602 104101 10740 ERROR 101 sINTERUPT ple NOT OCCUR ON 

Sopa O0SE04 004737 017604 1D JSR PC, CHKCS iGheck Ir ERR BRITE N RKCS SET 
2005 005610 1041Ge 10770 ERROR 2 *EROR BIT IN RKCS SET ON DOING WRITE 
2006 005612 O04 017620 10780 ISR PC CHKDA CHECK IF INCREMENTED RIGHT 
2007 OO0S6i6 104103 10790 ERROR 103 *RKDA DID NOT INCREMENT CORRECTLY 
>006 10800 AFTER A WRITE OF 6001 (OCTAL) WORDS. 
2009 10810 (12 SECTORS + 1) 

2010 o0S620 737 017722 10820 JSR PC, CHKWC “CHECK IF RKWC OVERFLOWED TO 0 
ol 1 105 10830 ERROR 105 oF sRKUC DID NOT OVERFLOW TO O 

spis Sheps Peron, Ouadeo 1p BCD TS : 

Sot eae tf att ADD Roa ko SURFACE 1 

2016 005642 eae 005401 rt MOV #5401,R3 *WORD COUNT 

2017 009745 10890 BR 1 GO WRITE SURFACE 1 
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C -Pil T4 READ & CHECK THAT 6001 WORD WRITE WAS DONE CORRCTLY 





gpg PTET ane bert, CHECK THAT GOO! WORD WRITE MAS, DONE CORRCTL 
4 
S TEST CHECKS THAT T INT 
st RUG Hee EY ite ee PRPENO We THEY NT DEI 
FL $ WORD OF oot SOOT ORC IN Nu WHICH THE E (6001 TH WORD) 8 a 

spa FT ITING WAS HONE EORRERTLY — 
epee ee pepsssubtegetesasha earoessassatteresensosnieentessadaaaeeeeesas 

005650 O00104 t5T4: SC 
2027 005652 013701 o0e202 10990 MOV QDRV, RI GET DRIVE # 
2088 OOsb56 900013 11009 ADD #13,R1 DISK ADDRESS FROM WHERE READ IS DONE 

pees oy 70 901110 110i MOV #15, SLPERR 

2030 70 104415 11020 1S: CON. RESE 
2031 72 104417 11030 DRV. RESET 
2032 005674 104415 11096 CON. RESET 
Be ie 005676 004737 006176 11060 JSR PC, CLEANBUF sCLEAN UP THE BUFFER INTO WHICH 
2035 11070 *READ WILL BE DONE 
2036 11080 :SET UP RKDA 
2037 11090 *SECTOR 11, SURFACE 0 
2038 o0S702 012703 001000 11106 MoV #1000,R3 : t 
soag 005706 004737 006166 11120 JSR PC, DOREAD GO READ 1000 WORDS (2 SECS) 
2041 005712 104101 11130 ERROR 101 s INTERRUPT DID NOT OCCUR AFTER 
Pod? 11140 *COMPLETION OF READ 
2043 005714 004 017604 11150 JSR PC, CHKCS ; CHEC IF EROR BIT IN RKCS SET 
Shae pper se Meee 032106 11155 el ie ie RY ET ORTING Ba BF pata BUEER - 
2046 peease Bt 11180 MOV R4Y,Re 
2047 005730 004737 017642 11190 ISR PC’ CHKBA sRKBA INCREMENTED CORRECTLY? 
2048 005734 104104 11200 ERROR 104 ?RKBA DID NOT INCREMENT CORRECTLY 
2049 005736 01270S 177764 11210 Mov #-14, RS 
2050 005742 022712 11220 62S: CMP #44444" (R2) sDATA WORD OK? 
2051 005746 001410 _ 11230 BEQ 
2052 005750 012737 O44444 O01164 11240 MOV #44444 SREGI § ;NO, GET EXPCTD DATA WORD 

005762 04100 11595 ERROR PC AERIAF iget, OrROR a WRETE OF 
coe res COSNGe : hey’ 
Shed 11558 ; WORDS EATS +1 Fiokb) HS DONE 
2056 11280 IN A PREVIOUS TEST. THE LAST TWO | 
2057 11290 sSECT TORS (LAST 401 WORDS) WERE READ | 
2058 11300 SBACK. THIS ERROR INDICATES THAT | 
2059 11310 "SEC #11 (LAST BUT ONE SECTOR) GAVE 
2060 11320 *BAD DATA 
2061 005764 11330 INC RS *REPORT 12 ERORS AT MOST 
2062 005766 001421 11340 BEQ 6$ 
2063 005770 11350 3S: TST (R2)+ s INCREMENT POINTER TO BA 
2064 005772 033110 11360 CMP R2, #DBUF+1002  ;CHECKED 401 WORDS? 
2065 005776 001361 11370 BNE 2 
0b 11380 4S: ST (Re) sCHECK THAT THE REMAINING 377 

06002 001 11390 BEQ S$ WORDS OF THE LAST SECTOR (SEC #0) 
2068 O06004 005037 001164 11400 CLR SREGL WERE AS Ors 
Ba Boept O80 rahe: Hie ZRROR — sDATA ERROR. IF WRITE WAS DONE CORRECTLY 
2071. tis SIN THE PREVIOUS west THE LAST SECTOR 
2072 11440 T (12 SECS + 1 WORD) 
2073 11450 SHOULD BANTATN” ONLY 1 (FIRST) WORD 
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PAGE 51 
READ & CHECK THAT 6001 WORD WRITE WAS DONE CORRCTLY 


+= b= b= b-< b= b> b — bp = bh = b= ps 
o- 








NON-ZERO, THE REST 377 


AS SHOULD BE 
"ALL O'S. THIS. ERROR INDICATES THAT 


REI, 


;DONE CHECKING FOR SURFACE 1? 


:YE 
50 SET UP FOR SURFACE 1 
:G0 BACK & READ SURFACE 1 


po ee ee ee ee 


SeueeReEe A 


rururururororurururoforururururururururoror 


Tu 
bs 
F 
ow of 
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g Sonesceseeeeer 


146 


sta 
28 


or 
& 
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Ob 0 0 Fb 0 9 0 be bb §— = 9 02 b= pe p--> b= bo bb 


0 b— b— bb b— b= b= b= 9 bb 0 = bh p= pp 


ww 


bbb br 
tel 
crore 


Seats fel BLAU AMO eR R Aerated 


EU) 
oo 






O4-NOV-76 13:36 PAGE Se 
READ & CHECK THAT 6001 WORD WRITE WAS DONE CORRCTLY 


DOWRITE: MOV #4002, IRKCS WRITE, IBA 
DOXFER: MOV Rl, JRKDA "ADDRESS THE DRIVE 

MOV R32? IRKWC :XFER THIS # OF WORDS 

MOV #DBUF , IRKBA ;USE THIS BUS ADDRESS 

Mov #38, ORKVEC SET UP INTERRUPT VECTOR 

HOV #13, -(SP) :SET NEW PC TO STACK x#xeexEREX 


1S: BIS $101, aRKCS 
CICNT 


2s: INC CICNT 


33: CMP (SP)+ 
#2, ( 















MO4 





I 
ats ROUTINE PERFORMS A WRITE ON A DISK.AT THE TIME OF ENTRY, R1 CONTAINS 
DISK ADDRESS (RKDA) WHERE WRITE IS TO BE DONE, R3 CONTAINS THE COUNT 
(RKWC), "DBUF’ CONTAINS THE DATA TO BE WRITTEN. NOTE IBA BIT IS SET. 


OT AS MDT EME ESTRL PF OH MT 
CALL. ie ie TATERRUPT becuRS: RETURN ADDRESS IS ADJUSTED TO SKIP OVER 


;SET IDE, GO (WRITE,IBA/ READ) 


MOV #-20, CICNT1 
;WAIT FOR INTERRUPT 


BNE 4 
INC CICNT1 
BNE es 


ISR PC, GTYRG ;TIMED OUT, INTERRUPT DID NOT OCCUR 
RTS PC ;RETURN TO THE EROR MEASGE 


(SP)+ ;RESTORE STACK POINTER 
SP) ;ADJUST RETURN ADDRESS TO SKIP OVER - 
RTS PC ;EROR MESAGE ON RETURN 








NOY 
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OZRKHE P11 TY READ & CHECK THAT &001 WORD WRITE WAS DONE CORRCTLY 









2122 1190 =; THIS ROUTINE PERFORMS A READ _ON THE DISK. AT THE TIME OF ENTRY at fohTains 
sis 118 Bene Peklico ReaD RILt BE DONE INTO BATACBEEFER at “Gaur. — 
2126 12000  ;READ IS DONE IN INTERRUPT MODE. IF THE INTERRUPT DOES NOT OCCUR WITHIN 
ie 12010 3A CERTAIN TIME, RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE ’JSR’ 
1 12020 CALL. IF THE INTERRUPT OCCURS AS EXPECTED, RETURN ADDRESS IS ADJUSTED 
186 12030 :TO SKIP OVER THE ERROR MESSAGE. 
131 OO0816€ 012777 OOO004 173526 12050 DOREAD: MoV #4, IRKCS ;READ 
132 006174 000727 12060 BR DOXFER 
133 12070 
1 12080 
2135 12090  ;CLEANBUF 
e136 12100 ;CLEANS OUT THE DATA SUFFER (ALL WORDS WRITTEN TO 177777) INTO WHICH THE 
137 12110 READ FROM THE DISK WILL BE DONE. DATA BUFFER STARTS AT "DBUF’AND IS 
g138 teled *1000 (OCTAL) WORDS LONG. 
e140 006176 012702 177000 12140 CLEANBUF:MOV #-1000,Re ;SET COUNT 
141 006202 012705 032106 12150 MOV #OBUF RS s INITIALIZE BA 
el¥2 O06206 012725 O2eeee 12166 18: MOV #22222, (R5)+ ss 
2143 O0b2le o0S202 12170 INC Fe ;DONE ALL WORDS? 
2144 12180 *BUFFER STARTING AT (PHYSICAL) BUS 
2145 12190 “ADDRESS 177000 (177000-200776) 
2146 008214 001374 12200 BNE 1$ 
2147 006216 000207 12210 RTS PC sYES RETURN 


-- 
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DZPKHE.?'! TS CHECK DATA TRANSFER AROUND 32k BOUNDARY 
2148 rect G CHECK DATA TRANGFER AROUND 22K BOUNDARY 
149 TETEST § CHECK TRANSFER ek BOUNDARY 
136 ;*THIS TES Fe ORES ITE Sa ae CTORS ON THE ISK FROM MEMORY 
151 ; #LOCAT IONS AROUND THE BOUNDARY. SECTORS 0,1 
ibe :#0 ARE WRITTEN. PHYSIC BUS ADDRESSES FOR OR The bata cur FER 
133 *# 177000 TO 200776 I.£. (32k-256) TO (32ke255 
ste s#CHECKING IS DONE TO SEE IF MEX BITS, RKBA,RKDA, BKC INCREMENTED 
e138 s #CORRECTLY. THEN DATA BUFFER IS CLEARED OUT AND'A READ IS DONE 
21 :#INTO IT. g CHECK 1S MADE 10 SEE IF THE CORRECT DATA WAS RECIEVED. 
2158 #0NLY le DATA ERRORS ARE T 
2183 pee te RTA ERRORS ARE REPORTED. a eeuunnnncuns 
2160 008220 900004 +é7s; SCOPE 
2161 O0be22 023727 017464 002000 12350 SLSTBK,#2000  §;33K OR MORE OF MEMORY? 
eibe 006230 1 2360 ws 1§ :YES 
2163 O06e32 0001 12370 TST6 IF NOT, DONT DO THIS TEST 
2164 Ole737 O01 12380 1S: 81600,38KIPARS ;MAP 28-32K THRU PAR S 
21E5 §12737 172354 12390 NOV #2000’ a8KIPARS ;MAP 32-36k THRU PAR 6 
ebb 612737 900001 1e409 #1, a85R0 > TURN ON MEMORY 
its LeseG sSET UP paTA BUFFER (1000 OCTAL WORDS S_LONG) FOR QMRITING THO SECTORS 
a 1ev0 > BUS Boreas” (PHYSICAL Setar 8 pair Sad (32K-255) TO (324256) 

el7e ED DATA IN THE BUFFER IS A. A COUNT PATTERN STARTING FROM 1 FOR THE FIRST 
1 12470 :WORD TO (000 

| 2174 12480 PHYSICAL ADDRESS: 177000 TO 200776 (32K-256 TO 32K+256) 
2175 OO06260 012737 O06266 001110 12490 NOV 82S, SLPERR sLUP TO 2$ ON EROR (SW 9) 

| 2176 O062e66 104415 12500 28: CON. RESET 
giz? 006270 104417 12519 DRV. RESET 

| e173 006272 012700 000001 12539 MOV #1,R0 s INITIALIZE DATA PATTERN TO BE 

ste 006276 012701 137000 152¢p MOV #137000,R1 *BA TO START PHYSICAL ADDRESS=177000 
2182 006302 O10021 12560 «3S: MOV RO, (R1)+ :WRITE COUNT PATTERN (1-1000) 

; 2183 006205 16570 INC RO INTO DATA BUFFER (PHYS ADDRES 

| 2184 001001 1 CMP RO, #1001 177000 TO 200776) 
2185 O063l2 O01 12590 BNE 3$ 

| 186 006314 013777 173406 12600 MOV QDRV ;SUR 0, SEC 0, CYL.O 

gi87 Sese2 bie??? 177000 173374 12610 MOV #-1000 ;WORD COUN T_=@ SECS 

| 2188 12777 177000 173370 12620 MOV 8177500, aRKBA 

| 2189 O06336 012777 NNNNN3 173356 12630 MOV 83, aRKCS *WRITE, GO 

| 2130 006344 104515 e640 CON. RDY :WAIT FOR CNTROL RDY 

| 2192 006346 004737 017604 12660 ISR PC, CHKCS ANY EROR IN RKCS? 

0) fete ie ‘ae ubtie treme toh PR * 

els 12690 (PHYSICAL) BUS ADDRESSS 177000 

| 8 coessy pow737 017676 12710 JSR 

| 2198 12720 

| 2199 isan 

| =o {S59 

| ge02 006360 104106 12760 

2283 12770 





ge: Bie 855 8.8 op of B86; 
ce ee EE, Be gg Bneclees 
Suz Bee ace 2 we. a gb Se ese 
oe eee pee 5 Hee, ae 
Oo ww ~ z=. bo oF + - oS, 6 > a of ae 
gag Reeec? Eoea G8, vivs §3 Eee ® ee? 
Sa OSS"Keansaeee gee SES 8 But By & E Wetaows 
get ce ceesogepce Bigg “ag 5 Se Bey wed 5 SinckEaee 
epee Stoke toag seek Be Sed Es gee § ae 
icc tal ocean a ig oa ms a 
F 4 
at & & 8 sik, 
wn @eou: y s “2 a. - & QO % 
a Phi owe 8 a 8.2 seg 
of” ESE Sue3 8 an Been seg 
a oe se este BEE E 
og fee S8hb = BE S53 Saks S282 § KE 
ee 
25 7 8 
rtf oO: °c 2000 | 
ze RRR etn RReRRRCRCCGRMnDnMRMRaTCMneCeNMNMMNNNNEAy | 
ae 
us 


1 
000 
42 


012737 O06432 001110 13050 
7000 
141000 
002202 
77000 
77000 
000005 


004737 017722 


TS 
le 
le 

GO4 
04 


MACY] 
CHECK 
1 
é 
176 
013702 O0eed2 


~OZRKH-E 
006410 004737 017620 


006424 104103 


006424 
S06432 104415 
CO6434 104417 
006436 
006442 
olen 
450 
OO0&4Se 
006460 
005465 
006474 
006502 


006416 
O064ee 104105 


11 


Si AN RN AUC 


me ee a a ee ee ee ne rn a a ee 


ecc8 
2229 
e231 


MAINDEC- 
OZRKHE P11 





ASR 


[nme wr nn ee ne ee + Se 
' 





001162 
001164 
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CHECK bata 


Wu) 


SLE EERE 
Baa sabauesaeeseD 


a 
oO 


Bansenens 


2 
Oo 


peeinoiriiininy 


3 
2 






DOS 





#-14 RS 
#137000,Re 


#1,R1 
R1, (Re) 
8$ 

RS 

9$ 

RS 


R1, SREGO 
(Re), SREG1 
107 








;AND BIT 4 OF RKCS (MEX) WILL GE SET. 


EE ORTL ONLY 12 ERRORS. 
AODRESS CF BUFFER 


3 (PA=177 

;INITIALIZE DATA PATTERN 
;CORRECT DATA WORD RECVD? 
;REPORT THIS ERROR? 


;GET EXPCTED DATA WORD 

Bet DATA WORD oe 
COMPARI 

te i] SURFACE 0) 


Tee "PHYSICAL BUS ADDRESS’ 
TYPE THE 6 pielt PHYSICAL BUS ADDRESS 
;WHERE THE DATA OCCURRED. 


; INCREMENT POINTER TO BA 
;CHECKED THE ENTIRE BUFFER? 





; R#OFF 
;TURN OFF MEMORY MANAGEMENT 


NAINDEC-11-DZRKH-E 
OZRKHE.P11 Té 


BERR 


3 


g 


an 


RS 


p= b= p= pe 


cee Eee eee EEE 
a 2 SS 


Por obs So aRO TOROS IS MON Na Sen sun SaBSRaee 


z 


017604 


017676 


010000 


160000 
37 017642 
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001740 
172352 
177572 


001110 


173032 
173020 
173014 
173002 
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all 


Cs 
oO 


SSS 


me he oa fs Fan fe bow Go ps Ba 


BSERERNECRESRBSSS 


Bs 


i=] 


ee 


S8Se8ssR5 


See 


Bene ae Pee ee Bas ns fe Dh bas De bow Bae hae th De te Pt ee 
Bee SS SSS SLES 


ee 
Oo 











83 iereeT B CHECK DATA TRANSFER FROM 22K 10 GK 
i s#THIS FEF bogs A WRIT ? EF ok Hof FRoA A BUFFER LOCATED AT 28K 


ie D1 SEE Stee” MrOTE TAY THE THE BUFFER IS FILLED 


1’S BEFORE DOING 


#THE WRITE IS DONE STARTING AT CYLINDER 0, SECTOR O, SURFACE O. 
a 


tét¢ 





SLSTBK,#1740 ;32K OR MORE OF MEMORY? 


ae 1§ * YES 

IMP TS17 :IF NOT, DONT DO THIS TEST 
1S: MOV #1600 DSKIPARS MAP 28-32K THRU PAR S 

MOV ,a#SRO TURN ON MEM MANAGEMENT 


;WRITE A COUNT PATTERN (1-10000) INTO DATA BUFFER (PHYSICAL ADDRESS 
;160000-177776).. THIS DATA BUFFER WILL BE USED FOR WRITING ON THE DISK. 


MOV 82S, SLPERR ;LUP TO 2$ ON EROR 
es: CON. RESET 





#1,R0 sINITIALIZE DATA PATTERN TO BE WRITTEN 
MOV #120000, R1 * INITIALIZE BA (PA=160000 
3s: MOV RO, (R1)4 sWRITE COUNT PATTERNS (1-10000) 
: NC RO INTO DATA BUFFER (PA 1 
cH P? #10001 177776, 28K-3eK) “ 
MOV ;WRITE ON SEC 0, CYL 0, SURI 
MOV #-10000,3RKWC 34K WORDS 
MOV 160000 *FROM THIS BUS ADDRESS 
MOV ,aRKCS WRITE, GO 
CON. RDY ;WAIT FOR CONTROL READY 
eRror oa" i ORRR ety oer aN RKC 
ba RITE OF aK 
:(28K-32K). DISK WRITE BEGAN ON 
;SEC Q, CYL O 0. ALL 4K 
: WRI SHOULD OVERFLOW 
58ND NTAIN O. 0. BIT 4 OF RKCS 
5 
ISR PC, CHKMEX ;CHECK IF RKBA OVERFLOWED AND MEX 
sB1TS (4) IN RKCS WAS SET. 
ERROR 106 : X BIT 4 he SET AFTER OVERLFOM OF 
ALBA. OF 4K WORDS (28K-32K) WAS DONE. 
;RETURN HERE IF NO ERROR 
MOV #10000, R3 COUNT 
MOV #160000. RY iW TERT TING BUS ADDRESS 
JSR PC, CHKBA "CHECK IF RKBA INCREMENTED CORRECTLY 
ERROR 104 *RKBA DID NOT OVERFLOW TO AFTER A WRITE IF 4K 





sb as “| om 


ES as 


» 


RU tia i RR RAR PRR Rd acai cara 


eyas Sc ba SSSR EG Ga al Gee Bae) Se 


8 
8 





004737 
104105 


: 


38 
ag 





££ 


sas 


bs Ro B= po po 


SEE 
885 


RES Aaa Re a 


g 


b= B= b— O— 0 = b= = PO = FF Fh Fb ee 
Oo 


SaRsehens 


be 
oan ome of 
NNN 
5 
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FOS 


ISR PC, CHKWC 
ERROR 105 
#4S, SLPERR 

NESEY 
SRV: RE 
MOV #120000,R1 
CLR (R1)+ 
CMP #140000, Ri 
BNE cs 
MOV QORV 
MOV #-10000, IRKWC 
MOV #160000; JRKBA 
MOV #5, aRKCS 
CON. RDY 
JSR PC, CHKCS 
ERR 102 
MOV 8-14. RS 
MOV #120000, R2 
MOV #1,R1 
CMP R1, (R2) 
BEQ 7§° 
MOV R1, SRE 
MOV (RO), SREG1 
ERROR 107 
TYPMSG ,MSG13 
JSR PC, TYPDBO 
INC RS 
BEQ 8S 
ADD #2,R2 
INC I 
CMP #1000,R1 
BNE 6S 





;WORDS (160000 TO 177776) 


Pe DID toe oe 
14 APR A uRTE OF hi WORD (160000 


;RETURN ADDRESS FOR LUPING 


;CLEAR THE DATA BUFEER BEFORE 
;DOING A READ INTO IT 


;READ FROM SEC 0, SUR O, CYL O 
34K_WORDS 
;INTO THIS BUS ADDRESS 
;READ, GO 
WAIT FOR CNTROL RDY 
RKCS? 
ERROR oL RO OL ae ery IN RKCS_ON DOING 
anh INTO MEMORY 
; (180000-177776 
STARTING ab 2 ERRORS aT OF BUPFER 
S INITIALIZE ‘pata PATTERN 
;CORRECT DATA WORD? 


T EXPCTD DATA WORD 
eeT Verret Othe & 


Oe TaaRSe erat tae Pac eee OF 


YL 0, SUR O INTO MEMORY (160000- 


a tBrcrom BUS ADDRESS’ 


; 
SIMERE BATA THE PHYSICAL BUS ADDRESS 


; ERROR OCCURRED, R2 CONTAINS 
THE VIRTUAL ADDRESS 


;POINTER TO NEXT BA 
;NEXT_ PATTERN 
;ALL DONE? 


; TURN OFF MEM MANAGEMENT 











bowel Te 


Bano aoR 


D-= 2 &— & + & 2 0 ob 2 Ho D> 
00 PU ££ CUTE 


yt eo to 


ee 


rm 
~~ 


EOTARR 
= 


Es 


2 
= 


— 


g 


S sae 


017216 
017464 


002SS4 
032106 


000400 
024640 


000014 
000014 


040000 
000124 


GOS 
Pee Se fod hectr Pasa.t bi TRANSFER 
eee eT EREORM THE LARGEST POSCIBLE DATA TRANGFER 


SF PERrORMe THe LACES DATA TRANGFEN POSSIBLE 


WITHIN AVAILABLE ME 


31) IF KT11 IS PRESENT A WRITE OF 16K os. TS DONE ON 
THE DISK (PROVIDED 28K OR MORE IS PRESENT 


32) IF KT11 IS NOT PRE 
3FOR WRITING (RKDP MON 


;ALL DATA TRANSFERS ARE DONE STARTING AT BA *PGEND’. 
ie WITES ARE DONE BEGINNING AT SECTOR 0, CYLINDER 0, 


“ 
ue 


3 AFTER DOING THE ’WRITE’ A 
wart ay DONE CORRECTLY. ANY WRITE 


yppeeeekiiapeeseneveaaasanttstieesnssaneneeeeesnsaseneeeeeessss 


fae dae be hae Bee be 
Sf eee 


S 
oO 


Bee Bs at Be he hb pm be a be Be me be be be ee 
ee 
[es] ~~ 
BS SEESEIEE B BRAYSCS 


Bas Ses SOS oSRSEaSENSBESSEESS 








ifon THEN ALL BUT TOP 1.5K OF MEMORY WILL BE USED 


"WRITE CHECK’ IS DONE 


MORY MANAGEMENT PRESENT? 


;FIGURE OUT THE MAXIMUM 
;XFER THAT CAN BE DONE 


;FRON *PGEND’ TO THE 


sPUT D DIVI ND ON STACK (LO) 
OT YESOR 

GO TO DIVIDE ROUTINE 

POP OFF REMAINDER FROM STACK 


;GET # OF SECTORS REQUIRED TO 
;00 WRITE OF # OF WORDS 
;(CONTAINED IN RO). Rl CONTAINS 


38 re 

3F CTED DISK 
;ADDRESS - AFTER THE WRITE 
31S DONE. 


;R2 CONTAINS EXPCTD RKDA 
;AFTER WRITE IS DONE 


tRxDA SHOULD 


TO 
;TH a TRANSEE R a OF 
Lae ay AT DISK ae 
ADDRESS = Oey 2,SUR 1,SEC 4) 


















SSRs 


PERFORM THE LARGEST PUSSTELE DATA TRANSFER 


















2457 
007256 053702 002202 1 XFR: RV,R T # TO 
ae f ee gest mnie EX THE ORE EER xFER 
007262 012737 007270 001110 15340 MOV #1$, SLPERR iL UP BRK TO 1S’ ON ERROR 
Sues 007270 104415 15360 15S: CON. RESET : 
abs b07e7e boss? 15370 DRV.RESET 
y 13777 002202 172426 15380 MOV QDRV, IRKDA sROQRESS THE DRIVE, CYL 0,SUR C, 
Sue 007302 010377 172416 13330 MOV R3, IRKWC 
2467 007306 005477 172412 15419 NEG ORKWC COUNT NT *. i. 
it Pak tt ete Ne aN 
70 S440 sLESS THAN 






es 1 
a? 15450 sala eR HI WITHIN THE 





2474 15480 3B Done N POONSFER 
ets 15490 suit ago BONE STARTING 
2477 007312 012777 032106 172406 12209 MOV 8PGEND,ORKBA § :START WRITE FROM HERE 
ei78 007320 012777 000003 172374 15520 MOV #3, ORKCS sWRITE, GO 
e480 007326 104416 15540 CON. RDY ;WAIT FOR CONTROL READY 
2482 007330 004737 017604 15560 JSR PC, CHKCS sCHCK RKCS FOR ERROR? 
2483 007334 104102 15570 102 ERROR BIT SET IN _RKCS ON 
2484 15580 “DOING A LARGE WRITE’ 
4 ep 007336 017620 15600 JSR PC. CHKDA sCHECK IF RKDA INCREMENTED CORRECTLY? 
2487 007342 104103 15610 ERROR 103 *RKDA DID NOT INCREMENT 
2488 15620 : CORRECTLY 
2489 15630 
2490 007344 012704 032106 15640 MOV #PGEND,R4 
2491 007350 GO4737 017642 15650 JSR PC, CHKBA : CHECK THAT RKBA INCREMENTED 
2492 15660 *CORRECTL 
2483 007354 104104 15670 ERROR 104 *RKBA BID vNOT INCREMENT 
oud | 15680 > CORRECTLY 
ae 007356 004737 017722 15700 JSR PC, CHKWC CHECK THAT RKWC_OVERFLOWED 
007362 1041 1571 ERROR 105 *RKWC DID NOT OVERFLOW TO 
249g 15720 ZERO AFTER A WRITE 
cag 007364 012737 007372 001110 12Fa0 MOV #25, SLPERR ;LUP BAK TO °2$’ ON EROR (SW 9) 
2501 007372 104415 15750 «2S: CON. RESET 
ares 02 172324 12555 3S Oey Bog ADDRESS THE DRIVE, CYL 0,SEC 0,SUR 0 
a eta pt 172314 1 > MOV eo ol : : z ; 
2505 007410 005477 172310 15790 NEG 
2506 007414 012777 032106 172304 15800 MOV #PGEND,RKBA _ ; STARTING BA 
2508 OO7422 012777 000407 172272 15820 4S: MOV #407, ORKCS ;WRITE CHECK, SSE, GO 
eat 007430 104416 158i CON. RDY sWAIT FOR CONTROL RDY 
2512 007432 004737 017604 15860 JSR PC, CHKCS sANY ERROR IN RKCS 





Pe 
: 
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040000 172254 
000001 172242 


021462 
172236 


i722e4 
172216 
177760 
172206 
000017 


005130 


+ b= b= 
ep eon 
co 


HEgeees 


Rae 


S 


Bama mnnnnnnininan 


é 


283 


;GO CHECK THE REST OF THE DRIVES. 


[od dL aud nd ane aud and eel aed aed ened sued ome ued ened 
PROMOS KKo 


SBassseuss 





I05 





102 
WBITI4,dRKCS  § ;SKIP CHECKING FOR WCE IF HE SET 


SCE, JRKER ;WRITE CHECK ERROR? 
6$ 3NO 


PC, GTYRG ;GET RKCS,ER,DS,DA 

RKBA, SREGE WRITE CHECK ERROR. RKDA GIVES THE DISK ADDRESS 
WHERE fice OCCURRED. hore THE SECTOR IN 
SROTE THAT THE DATA BUFFER WICH WAS TIRES.” 
*CHECKED IS ir ON aoe f FR BOUNDARY 
*(LIKE 256, Sle WORD ETC.), BUT IS SOME 
*SECTORS & A FRACTION (LIKE 300 WORDS ETC.) 

IRKWC ;WAS THE ENTIRE DATA BUFFER 

75 *WRITE CHECKED? 


ORKWC, RS 
#177760, RS sFORM THE RKBA AND RKWC 





RS, JRKBA 310 BE USED FOR DOING 
;WRITE-CHECK IF THE REST 

#17, IRKWC ;OF THE DATA BUFFER 

4§ ;G0_ DO WRT-CHK 


FOR 
;REST OF THE BUFFER 





NXTDRV 















MACY11 €7(732) 
PROGRAM 


MATNDEC=11-DZRKH-E 
DZRKHE.P11 EXERCISER 
en? 

Seug 

= OEM JOWWIS 
Seec Pires perth 

Seep g200s7 002252 
See, Bosees $oes57 001753 
5229 po7ss6 0104S 

sop 

Sees Povees feacs? ooesae 
54 O07SE6 001374 

Seep Goremm piss 99558q 
eebe 00760) 010120 

ef Be ie 

007606 012700 025356 
See Bee 
By ie tine Be 
OO7E%2 Ol 1761 

ers boreie leven 1o7eed 
Seg DOTENE DIETSD bs0reS 
e581 OO7eSe 18700 Ja1si7 
Sees DOTEES DLS7SD pSaaSe 
sey OU7eE6 012720 176543 
5265 oo7672 013737 00173 
S268 

5289 

5299 

529] 

5663 007700 004737 022304 
5295 

5eg4 

52¢5 

5egp 

5297 

529g 007704 012746 177777 
w= 

5601 007712 013746 001764 


bs bs hs Pb fe be 


Bas 
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SRR sBee ees Hae 


oo 
sae 
= 


16570 


ARAB ASS SS RUD: 


bb 0 0 0 0 
coe. 

ned 

588 


JOS 


-SBTTL EXERCISER PROGRAM 


;BEGINING OF THE EXERCISER PART OF T 


PROGRAM. 
SIF THE PROGRAM WAS RESTARTED AT 210, Ne THEN THE STATISTICS COLLECTED 


350 FAR WILL NOT BE CLEARED. 


EXRCSR: — RESET 


1S: 


JSR 


MOV 
CLR 


#KEY RO 
(RO)+ 
RO, #KWHR 


#123456, (RO)+ 
#176543, (RO)+ 


PCNTR, REPCNT 


PC, CHOPRS 


#177777, -(SP) 
-(SP) 


ORVPRS, -(SP) 






OCATIONS FROM 
” (EXCLUDED) 


EEN Yo Ti 


sRESTARTED AT 210? 
YES, SAVE THE STATISTICS COLLECTED 
SUPT TILL NOW, DONT CLEAR THEM 


; CLEAR iee FROM ’HECN’ 
TO "PCMND’ (EXCLUDED) 


INITIAL Ie COUNTS FOR MINS, 
:SECS, KW1I 


; INITIALIZE PTR TO RANDOM NO. SEEDS 
USED BY THE RANDOM NUMBER GENERATOR 
:SET UP RANDOM NUMBER SEEDS TO BE 


sREPETITION COUNT. WHEN THIS COUNT GOES 
-70 0, IT’S CONSIDERED TO BE AN END OF PASS. 
; THE NEXT PASS WILL START ATLL START RIGH 
“FROM WHERE THE EXERCISER LEFT OFF. 


CHECK IF ANY DRIVES ARE PRESENT 
;IF NONE, GO TO SEOP, END OF PASS 









MAINDEC-11 
-Pil 


Rnooooomnnanennn 3 
Be Bs WW dad San 


007716 


-DZRKH-E 


MACY11 €7(732) 
AM 


EXERCISER PROGR 


asides Oosese 
ooese2 


177777 
024640 


002230 
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KOS 


a 
(SP)+, ORMAP 
revel Score 
#13107. ,FNMAP 
BASEBA RO 

RO 

#177777, -(SP) 
-(SP) - 
RO,-(SP) 
oe 


(SP) 
(SP)+, BAMAP 






SUBROUTINE 
;DISCARD THE REMAINDER. QUOTIENT IS 
;NOW ON TOP OF THE STACK 


;SAVE THE MAPPING FACTOR FOR BUS ADDRESS 
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EUORO OF ERCH SECTOR Gives THE RUMGER OF WORDS (2's COMPLEMENT) WRITTEN IN 
;THAT SECTORS. REST OF T FOR USING 


ele 1-DZRKH-E 


MACY11 €7(732) 
SER PROGRAM 


; THE ABSOLUTE DISK SS_AS THE RANDOM SE 
F THE PROGRAM 


THEN DO NOT REWRITE THE DISK WITH RANDOM PATTERNS. IF SW 4 IS NOT SET THEN 
;ALL THE DISKS (PRE ) ARE WRITTEN WITH RANDOM PATTERNS. 


88 
- = 


phe 


Gt Es 


Bo0020 171106 


LEERURRERRRRR 


bo hs bo fh be ee ee ee et oe 


3 


8 


SINRREOUIS SRS 


so 2h8 
oy See 


a es 


= 


oO 
— 
=] 8 
fas fpme pact 


f=)=) 
VS 


| el al 


OOOOOOOOCOO OOO0OCCO0O BO000OOO00000 
CO OOOOCOOOOOOO O0000000 oOo 
cs an bm PB a Fe bs bo bo he Re Pos bas fan BG = Go Paw Smo be R= he 


& 2NFHELHSSEO KLEBRVS 


oo 


P= babe eats as hes fb bs pb bh bs be [ pa b> f= bp bs Pe 


3s 


furore 
Sew 


LOS 






DATA WORDS ie SECTOR ARE GENERATED 


WAS RESTARTED AT 210 THEN CHECK IF SW 4 IS SET. IF IT IS 





FRSTRT s RESTARTED AT 2107 

FRSTRT *YES, © THE RESTART FLAG 

wSiM, JSHR 7S 4 gLepR : 

BEGEX1 YES, DONT REWRITE ALL DISKS WITH 
;RANDOM PATTERNS 

#2$, SLPERR *LUP TO °2$’ ON EROR, SW 9 SET! 

#PDR, Re *POINTER TO DRIVE #’S TABLE | 

DRVPRS,R3 :# OF DRIVES PRESENT 

#4872. -RO ;NUMBER OF SECTORS PER DISK 





GET THE FIRST AVAILABLE DRIVE 
#177770,R1 :POSITION THE BITS (15, 14,13) 





R1,QDRV 
Ri 
Ri 
‘I 
Rl, IRKDA ;BASE DISK ADDRESS 
MAXBA, RY sCALCULATE MAXIMUM BUFFER 
BASEBA, RY 
sCONVERT TO WORDS 
#377,R4 *KEEP ONLY WHOLE BLOCKS 
RY, #12. ;MAX OF 12 SECTORS 
#12. ,R4 
RY, RI 
Ug 
RO,R1 
Ri 
Ri 
R1,5$ 
R1, JRKWC 
RS, ;GENERATE RANDOM DATA BUFER 
DBUF ;STARTING ADDRESS OF DATA BUFER 
#DBUF , IRKBA ;FROM THIS BUS ADDRESS 
#3, IRKCS ‘WRITE, GO 


;WAIT FOR CONTROL RDY 
tANY ERROR? - 
SAN ERROR OCCURED WHILE DOING WRITE 





- ,»CHKCS 
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DZRK 
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SSeeee2 
FapRON 


oO 0800 20000 
a fee ee Bae b= b-bd be 
atatatnt 
bb bb ee 
NO £OO 


SESH DEGREE SARE RABY RRO LER 
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EXERCISER PROGRAM 


000400 170719 
000377 
010246 


002202 


001213 


777 000010 170576 


000100 171362 


= 0 b— bb b= BB bP Bb = = = 0 he 





OS 


OY-NOV-76 13:36 PAGE 65 


is 


1a 
1Paep 


17470 
17480 


ue 


BaR eeu 


in 
88a 


Palatal 
38585 








;ON THE DISK. YOU ARE ADVISED TO USE 


;BASIC AND DYNAMIC TESTS. 


;TYPE CURRENT STATUS 


ssTYPE ASCIZ STRING 


OVER THE ASCIZ 


4§ :GET 
C15) (12> /MRITTING’ RANDOM PATTERN, DRIVE / 


;DECREMENT SECTOR COUNT 


;MORE DRIVES TO D0? 


;IF SW 3 IS SET, ENABLE THE LINE CLOCK AND INITIALIZE COUNTS. 


BIT #8178, ISWR 
BEQ 
BIT #377,RO 
BNE 
TYPE S$ 
BR 
-:65$: .ASCIZ 
645 
MOV QDRV, -(SP) 
TYPOS 
-BYTE 1 
‘BYTE 0 
TYPE SCRLF 
6S: SUB RY RO 
BGT 3$ 
DEC R3 
BNE os 
BEGEX1: BIT #SW3, ISWR 
BEQ BEGNEX 
BIS #8176, IKWLS 


;KWLIL_ CLOCK PRESENT 

; IF NOT. SKIP. NOTE: iF KW1IL IS 
NOT PRESENT SW3 SHOULD NOT BE SET 

jOTMERUISE A TIMEOUT WILL OCCUR. 


LiL cLoC 
‘SERVICED AT PRIORITY 7 (KWSRVE) 








oe ne ee a re ee ee ee 
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DZRKHE .P EXERCISER PROGRAM 


ae 17719 ; THE PROGRAM IS GOING TO LOOP B® TO THIS POINT AT THE END OF A PASS. 
ei3 919352 104415 ia 17730 BEGNEX: CON. RE SET cr sCLEDR EVERYTHING IN ORIVES 
aa 

Eris ot 60 oes ott 54 17 a SBypRe” Rey  beives” LEFT IN SYSTEM? 

16 610364 0601402 177. QMNGER 
217 010366 904737 014174 17770 PC, GENSRG :GO GENERATE 8 COMMANDS FOR THE @ 

ig 17730 
720 178 
eel 17810 5 CHECK IF THERE IS ANY UNFINISHED COMMAND IN THE at WAITING TO BE EXECUTED. 
27; 17820 ;IF THERE IS NONE, GO TO THE 'GENSRQ’ AND GENERATE 8 REQUESTS <COMMANDS), 
2723 ; 17830  ;3AND PUT THEM IN THE Q. IF THERE IS AN UNFINISHED COMMAND, FIND OUT IF 
ered 17840 ;THERE IS A PRIORITY COMMAND TO BE EXECUTED IMMEDIATELY. 
2726 010372 O1 17860  QMNGER: MOV pPaLVL -(SP)  ;NEW PSW . RAISE PRIORITY 
e727 tees 012746 010404 17870 MOV $,-(SP) RETURN PE RERRREREAEXERES 
2728 Ol 00) | 17880 RTI 
3730 10404 905737 001764 17900 (18: TST DRVPRS ;ANY DRIVES IN SYSTEM? 

1 610410 o01040 17916 BNE $ 
2732 O10412 104400 o10420 TYPE 65S 53 TYPE ASCIZ STRING 

010416 32 BR 4i -GET OVER THE ASCIZ 

34 iene ies: -ASCIZ <15><12>/HALTING - PRESS CONTINUE TO RESTART AT °200°/<15><12><1 
2736 010504 000000 17930 HALT 
e737 010508 ° 000137 003470 17340 IMP START 
2739 010512 012700 o02006 17960 «2S: MOV #KEY RO 
2740 016516 005720 17970 «3S: TST (RO)+ sANY UNFINISHED COMMAND 
2741 019520 100006 17980 BPL 4 -IN Q 
2742 010522 O20027 002026 17990 CMP RO, #KEY+20 
2743 010526 001373 18000 BNE 33 
2744 010530 737 014174 18010 JSR PC, GENBRO ;IF NOT, GO GENERATE 8 MORE COMMANDS 
2745 010534 18020 BR CHFAFN . 
2746 18030 
2747 18040 
2748 O10536 012700 o02006 180S0 4S: MOV #KEY,RO 
2748 010542 032710 010000 18060 5S: BIT #BITL2, (RO) ;ANY HIGH PRIORITY COMMAND IN Q 
2750 010546 001404 18070 BEQ 7 
eel 01 005710 18080 TST (RO) ; FINISHED? 

010552 100402 18090 BMI bs 

2753 010554 105710 18100 TSTB = (RO) STN EXECUTION? 
2754 010556 100165 18110 BPL PRICMND NO, GO PROCESS HIGH PRIORITY 
eS 010560 005720 18130 6S: TST (RO)+ sCHECK THE ENTIRE Q 
2757 0105be 7 o02026 18140 CMP RO, #KEY+20 
2758 O10S566 001365 18150 BNE 5 
2759 18160 
2760 18170 
2761 18180 if FIND OUT IF THERE IS A WRITE CHECK FUNCTION TO BE DONE IMMEDIATELY AFTER 
2762 18199 ‘A WRITE, THAT WAS DONE PREVIOUSLY. 
oes 010570 005737 oO021S6 18210 TST WCFLG ;IS WRITE CHECK TO FOLLOW 
e768 010574 | 1gee0 BPL CHFAFN sHRITE? IF NOT, BRANCH 
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76? 01057 013700 0021 18240 MOV WCFLG, RO 
768 ot bes B43505 woe ie 18250 BIC BI77400,RO fae: Bette. CONTAINS KEVay (OFFSET FROM 
3 18260 KEY), OF THe WRITE FUNCTION 
? gl 016001 902532 18270 MOV PCMND(RO),R1 $GET bOINT 
10612 062700 Oo82006 18280 apo 8KEY RO FROM ER. OF THE KEY 
16639 sHT CH WAS USED FOR PREVIOUS 
10616 922761 oocos2 o00002 18310 ¢ #2,2(R1) CHECK THAT THE FUNCTION 
Br Ot0ess ialg 16320 BES #HAS A URITE 
ecb 10626 O:1037 001162 18230 MOV (RO), SREGO ;GET KEY CONTEN TS 
, 91063 016137 00002 001164 18340 MOV 2(R13, SREGL GET THE FUNCTION INDICATED BY THIS KEY 
e778 O10640 104027 18350 ERROR 67 ‘TF NOT, ERROR 
2775 18 :BEFORE DOING A WRITE CHECK A WRITE IS 
2780 18370 ALWAYS CURANCE ort HIS ERROR 
18380 INDICATES THA N ATTEMPT IS BEING 
i8 see 10.00 WRI CHECK Berore A WRITE IS = 
18400 THE KEY I MESSAGE WAS 
eres 1g4i0 Te ONE ORE HICH GAVE aise tor 19 THIS ATTEMPT. 
1g4e0 i THE FUNCTION CODE IS THE FUNCTION ASSOSCIATED 
ses 10642 002156 18446 CLR WCFLG {ABORT THIS WRITE CHECK 
2788 010646 OS2710 100000 18450 BIS 8BIT1S, (RO) 
2789 0 000647 18460 BR 
e730 O10654 Ol2e7el 900006 oD0002 18470 7$ MOV #6,2(R1) ;SET UP BITS FOR WRT CHK 
2792 010662 042710 174340 18490 BIC #174340,(RO) CLEAR OUT THE UNNECESSARY 
2733 18500 FLAGS FROM THE KEY 
2704 O10666 oOS2e710 o00100 18519 gis 88176, (RO? SET L8G FOR WRITE CHECK, FOR 
oe 010872 000137 011332 18530 IMP EXCUT 
2797 18540 
2798 19550 :NO HIGH PRIORITY COMMAND IN @ 
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et tt 
70:2:2:0.0.0.0.0 
= 0 ob be 
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paBansnsonsBsbasaNaees 
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BNE CHI 
:NO (UNPOSETLONED) EXECUTABLE COMMAND WAS FOUND IN THE G. CHECK IF THERE 
IS ANY POSITIONED COMMAND IN THE Q, WAITING TO BE EXECUTED. 
TSTB  aRKCS sIF THE CONTROLLER IS BUSY GO TO 
BMI 1$ :STATUS AND WAIT FOR INTERRUPTS 
IMP STATUS IF THE CONTROLLER IS NOT BUSY FIND 
1$: MOV #KEY, RO sANY POSITIONED COMMAND AND EXECUTE 
2$: BIT #8174, (RO) 
BEQ 3$ sIT 
IST RO) :MAKE SURE COMMAND IS POSITIONED 
TSTB ss (RD sCOMMAND IS UNFINISHED, 
BMI 3$ -IT IS NOT IN PROGRESS 
MOV (F.0) RI *THE DRIVE IS NOT IN BUSY 
BIC #177770,R1 
STB BUSY (RI) 
JMP EXCUT ;G0 EXECUTE THE COMMAND IF THE 
38: TST (RO)+ sABOVE CONDITIONS ARE SATISFIED 
che RO, SKEY+20 sCHECK ALL COMMANDS IN Q 
IMP STATUS . 


;ENTER HERE IF THERE IS A PRIORITY COMMAND TO BE EXECUTED. 


PRICMN: JMP EXCUT 3GO EXECUTE NON-SEEK COMMAND. 
sENTER THIS IF A COMMAND IS TO BE PREPOSITIONED (BEFORE EXECUTING A 
sFUNCTION) 


;ALREADY POSITIONED? 
;YES, GO BACK AND CHECK IF REST OF THE 


POSTION: afi? sB1T4, (RO) 
>COMMANDS IN THE @ ARE TG BE POSITIONED 


ISR PC, POSK :GO CHECK, 8 SET UP FLAGS 
JSR PC’ POSCMND : INFO ABOUT PRESENT & PAST COMAND 
MOV #111, aRKCS *POSITION THE COMMAND 
CLR -(5P NEW PSW, DROP PRIORITY 
HOV #1$,-(SP) *RETURN FOR RTI 
1S: 
TSTB ss INTIFL 
BEQ - sWAIT FOR INTERRUPT 
MOV BINTHND,ORKVEC ;RE-ESTABLISH RK INTERRUPT VECTOR 
IMP CHFAFN GO BACK AND CHECK IF ANY COMMANDS TO BE 


*POSITIONED OR EXECUTED 
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#KEY,R1 
88174, (RL) 


(R1) 


(R1)+ 
R1, #KEY+20 
1$ 


EXCUT 


R1, SAVKEY 
PC, POSK 

PC, POSCMND 
#111 aRKCS 
#45, -(SP) 


INTIFL 
SINTHND, JRKVEC 
SAVKEY, RO 








iie'g TERE. ay 3 Eee FE IS IN 





Pecute. THE POSITIONED 


‘BUT FL} of gs TION THE COHMEND ND Ckey) 


;DRIVE BUSY? 


NO POSITIONED 


sHEADS POSITIONED? 
sFUNCTION COMPLETED? 
“FUNCTION IN PROGRESS? 


;CHECK ALL COMMANDS IN @ 


COMMAND WAS 
FOUND IN THE Q. 3 pEcre 
COMMAND POINTED T 


I 
INT’ 





;AN ALREADY POSITIONED COMMAND HAS 
‘BEEN FOUND. 


3 SAVE POINTER TO THE COMMAND(KEY) 
CH IS ALREADY POSITIONED 
POSITION THE 


0 BY RO 


TERRUPT 
RELELLEELE 


;D1D INTERRUPT OCCUR? 
REESTABLISH INTERRUPT ADDRESS 
RESTORE THE SAVED POINTER TO KEY 





COMMAND (KEY) 
PAST & PRESENT COMAND 
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EXCUT: Bex 









;EXECUTE THE COMMAND POINTED TO BY RO 
3RO CONTAINS THE POINTER TO THE 
COMMAND KEY 


;GET ORIVE NO 


sang COMMAND UNFINISHED? 


if ere T WAS MADE TO EREEXECUTE 0 COMMAND 
ON OIE i Be BIVEN IN ER N IN ERROR MESSAGE) 


;1S IT IN PROGRESS? 


;GET KEY 
;IF YES, ERROR 


;AN ATTEMPT WAS MADE TO REEXECUTE A COMMAND 
THAT IS IN PROGRESS (ON DRIVE NO. GIVEN 
IN EROR MESAGE) 


31S THE ORIVE BUSY? 


;GET ORIVE # 
BUSY’ FLAG FOR THE DRIVE (CONTAINED 
iN Rl) IS pag INDICATING THAT Tey DRIVE 


Rich Watt Wats 


CONTROL READY SET? 
3YES 


GET RKCS, ER, DS, DA 
ONTROL READY IS NOT SET. THIS IS AN 

tS Nee ECTED ERRO TON, . RANTROL SHOULE 

BE NORMALLY READY. 


;FORM THE ADDRESS OF _ THE 
PARAMETER LIST FOR THIS 
COMMAND 


;GET THE FIRST ITEM FROM LIST 
*DISK ADDRE 
RWS RDY SET? 


ter T Ras, Ss FOR TYRINe SERIAL # 


RW Bt IS'NOT. FT FOR. THE DRIVE. 
7A NON SEER FUNC WAS SUPPOSED 
510 BE EXECUTED ON me DRIVE. THIS IS 
"AN UNEXPECTED ERROR CONDITIONS AT THIS 
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016503 


20690 
20700 
20710 =«6S: MOV 
20720 
oO 
BEO 
20750 
20760 
20770 NWRFNC: MOV 
20780 BIS 
20790 te 
Beat 
20820 JSR 
Speu0 mov 
20850 
_ BIS 
20880 
20910 MOVB 
20320 JMP 
Berti ABRT: JSR 
20950 JSR 
20960 NOP 
20970 ABRT1: JMP 





GO6 





2(RS),R3 


etre)! ” JRKBA 
PC, FNCMND 
R3, ORKCS 
#8177, (RO) 
#81T7;R4 
RY, BUSY(R1) 
R4’ INTFLG 
STATUS 


PC,DRVABT 
PC; CHKDRV 


QMNGER 





;POINT OF EXECUTION R/W/S RDY SHOULD 
;BE_NORMALLY SET. 
;GET FUNCTION TO BE DONE 


31S IT A WRITE FUNCTION? 
YES. IT IS WRITE 
IT’S NOT A WRITE FUNCTION 


eet ee Toe co BITS. 
>GET WORD COUNT 


- 3GET BUS ADDRESS 


;SAVE INFO ABOUT PAST & PRESENT COMAND 
;SET SSE, IDE, FUNCTION, GO 

;SET FLAG pace FUNCTION 

:RY CONTAINS OFFSET TO THE COMMAND KEY 
;(FROM *KEY’) BITS 0-3 7 ee SET 


*SET FLAG INDICATING DRIVE 
*SET FLAG FOR INTERUPT USE 


;ABORT THE FUNCTION 
;GO CHECK, DRIVE ERRORS 









MAINDEC=11-D2RKH-E MACY11 27(732) O4-NOV-76 13: PAGE 7, 
DERKHE. PLL EXERCISER PROGRAM Feng 





38 rid TRTTE-PUNCTION Oe CUTED IS A 

1 011604 016537 O00004 011624 21010 WRFNC: MOV 4(RS),1$ “GET # OF WORDS T WRITTEN 
es flies hee Ries US tg i =| ee 

pt TPS O O000 21080 4: “ORD s SAVE 1 OF DS ADDRESS OF BUFFER 
3 Bese nseaane 000101 21060 ’ BIS #101,R3 :SET Be ano Go Bit 
304 O1ib34 013077 011624 170062 1070 MOV 1$, JRKWC :SET WORD COUNT 
a8 11642 013777 011626 170056 21 MOV ” JRKBA ‘SET BUS Ss 
3043 011650 004737 O20064 21090 ISR PC, FNCMND *SAVE INFO ABOUT PAST & PRESENT COMAND 
3051 011654 010377 170042 21110 MO JRKCS sISSUE WRITE, IDE,GO 
1660 052710 21120 I T7, (RO) 2SET FUNC 

Ss SHEEN faerie SRS LIR HE HEH moceegg“NeUeAt runerzon 1m 
3055 011670 110461 002126 21150 MOVB RY, BUSY(R1) sSET FLAG AT 
3056 011674 110437 002234 21160 fu’ SNTFLG iat FLAG PRO ATENUPY USE — 
se0 st1a0 SERON KEY") BITS 0-3, BIT’? 1S Ser 
3059 011700 000137 021066 21196 IMP STATUS . ; 
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EXERCISER PROGRAM 


BLOB vrrog «BABAR PUK: NYCRR LH SPINE RTH wo 
2 105761 


002126 21230 STB BUSY (RI 
001162 Si5s0 HOV At 1,$REGO ioe # FOR WHICH *BUSY® IS SE 
51560 Beer Se ei. ise, IROYCAT ING. the oe 
21280 AND’ ENGAGED I 
gle istaut a gt ALTeMeT WAS MADE ne int 
1 NGN ON THIS DRIVE. THIS ple AN 
1 167766 51325 1$: TSTB = ARKCS sUNEX cEPTED ER } ee 
PR 04 5i368 ; BMI 2$ we 
004737 Oe2l46e2 21340 ISR PC, GTYRG ;GET_RK DA 
194003 21350 ERROR 3 : CONTROL Sa ER 0B NOT SET. THIS IS AN 
4 21360 6$ *UNEXPECTED ERROR CONDITION AT THIS 
21370 :POINT OF EXECUTION, CONTROL 
21380 *BE NORMALLY READY. 
011002 21390 2S: MOV (RO) ,R2 
21400 SWAB sé 
bie70e 177770 e410 BIC #177770, Re 
1 ‘iS not PCMND(R2) .R3 STARTING WORD OF COMMAND TABLE 
pies saa ster MOV (R3), @RKDA . 
032777 000100 167720 21450 BIT #RWS; ARKDS sR/W/S RDY SET? 
001006 21460 BNE 3$ * YES 
010137 001750 21470 MOV RI, SRORV GET DRIVE #, FOR TYPING SERIAL # 
004737 O2l462 21480 JSR PC; GT4RG sGET RKCS, ER, DS, DA 
104004 21490 ERROR 4 RDY IS’NOT SET FOR THE DRIVE. A 
000431 21500 6$ ROOST TIONING) SEEK WAS SUPPOSED TO BE 
21510 ;BE EXECUTED ON THIS DRIVE. THIS IS 
21520 AN UNEXPECTED ERROR CONDITION. AT THIS 
21530 *POINT OF EXECUTION R/W/S RDY SHOULD 
110261 126 Steg 3 MOVB Re, BUSY(R1) ST AR eT FING DRIVE BUSY 
52761 presse 002126 aa BISB Ratt? BUSY RL) . 
G3e 10 O00010 1570 BIT BITS, (RO) 31S THIS A SEEK COMMAND 
112761 002136 51288 MOVB i377 POS(R1) | ;SET FLAG INDICATING, THIS DRIVE POSITIONS 
052710 21600 BIS #8174, (RO) SET FLAG INDICATING THIS COMMAND 
re 5 000200 elbed 4S; BIS 88177, (RO) ;POSITIONED. SET FLAG INDICATING 
1 “FUNCTION IN PROGRESS 
012777 012116 167656 i640 cs: MOV #INTISK, DRKVEC ;3SET UP RKI1 VECTOR 
1099 oo Si c + ate ey : NERF INTERRUPT 
000207 51870 RTS  OCEURRE RNG 
004737 014122 21690 68: JSR PC, DRVABT sABORT THE FUNCTION 
0047 37 16204 1700 JSR PC; CHKDRV GO CHECK, DRIVE ERRORS 
005726 21720 «7S: TST (SP)+ sPOP THE RETURN ADDRESS 
000137 010372 21730 IMP QMNGER 
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21750 ar sSaUT A SEEK FOR POSITI 
THIS HANDLER SERVICES T 
THE SEEK BEING ACCEPTED. 


ON 
HE 


oov~) 


rururururururururu 
8808 


Seesseeoes 


ee 
oO 


; & 
;SCP SET AFTER hem I 


Besas 


$ 
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SBORR Paso wR RRR Re 
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fururururororururururururururorurury 
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t= 
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Baa8 
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3 
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rorvrorory 
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~ 





ING, AN INTERRUPT IS ALLLOWED TO TAKE 
FIRST INTERRUPT, WHICH OCCURS AS A RESULT 


sere THAT_INTERRUPT TOOK PLACE 
sory calgary TO S 9N RETURN FROM 


;CONTROL READY 
CONTROL READY ROT "ser AFTER THE FIRST 
INTERRUPT ON INITIATING SEEK 


;SCP BIT SET? 
DA AND DRIVE # FOR 
VE 


NTERRUPT ON 
pert WAS ANATIATED, 


S IS THE FIRST INTERRUPT 
AFTER ISSUING SEEK 


CHECK THERE IS A SEEK FUNCTION 
sIN RKCS 


GET _RKCS,ER, DS 

*RKCS DOES Nae aon ONTAIN ~SEEK? FUNCTION. 

*A SEEK WAS INITIATED AS A RESULT OF WHICH 
:(THIS) FIRST 


SHOULD conte BIN THE SEEK FUNCTION eis: 


;GET THE DRIVE # FROM RKDA 


: WHENEVER 
*ANY OPERATION INITIATED ON ON any DRIVE 4 
;*BUSY’ FLAG FOR THAT ORIV tA 


;FORM THE ADDRESS OF 
; THIS KEY 
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2231 
2232 BIT #BIT4, (RO) 31S THE KEY ACTIVE FOR 'POSITIONING’? 
22330 BNE 4 
22340 MOV R1, SREGO VE NUMBER 
gese0 ERROR 10 ea NG FLAG (IN THE KEY) IS NOT 
THe INTERRUPTING DRIVE (GIVEN 

22390 4S: TSTB —- POS(RI) 18 ~ *POSITIONING’ FLAG SET? 
22400 BNE S$ 
22410 MOV Ri, SREGO ;GET DRIVE # FROM RKDA 
22420 ERROR 10° sTHIS INTERRUPT IS SUPPOSED TO BE AS 
22430 A RESULT OF INITIATING A (POSITIONING) 
22440 : WHENEVER A SEEK I INITIATED 
22450 :TO POSITION THE HEADS POSITIONING 
22460 “FLAG (POS#) IS SET. OCCURANCE OF THIS 
22470 ‘ERROR INDICATED THAT THE DRIVE # 
22480 (FROM RKDA)GIVING THIS INTERRUPT DID 
ge430 :NOT ITS POSITIONING FLAG SET 
22510 «SS: TST JRKCS sANY ERROR? 
22520 BPL 8S *NO - RETURN 
22530 
22540 BIT #B1TS, ERCODE 
22550 BNE ;SAME ERROR 
22560 BIC #BITS, ERCODE 
22570 BNE 7$ 
22580 BIS #BITS, ERCODE 
22600 JSR PC,RGYSDR ;GET RKCS, ER, DS, DA AND DRIVE # FOR 
22610 :TYPING SERIAL DRIVE # 

ERROR 11 ‘BIT 15, °ERR’ SET IN RKKCS AFTER FIRST 
soba * INTERRUPT - WHICH OCCURRED AFTER A 
2264 *POSITIONING SEEK WAS INITIATED. RKER 
226) ;WILL CONTAIN ERROR BIT/S 

6S: BIC #B1T4, (RO) ;CLEAR POSITIONING’ BIT 

22670 CLRB —«- BUSY(R1) *CLEAR *BUSY’ FLAG 
eeb80 CLRB = POS(R1) “CLEAR *POSITIONING’ FLAG 
22700 JSR PC, CLRERR ;CLEAR THE ERROR 
22710 BIS #8tTi2, (RO) ‘INDICATE HIGH PRIORITY ON 
22720 INCB = RETRY(R1) ; INCREMENT RETRY COUNT 
22730 CMPB =seRETRY(RI),#3 © ;DONE RETRIES? 
22740 BLE 8$ :NO 
22750 
22760 sABORT THE FUNCTION 
22770 
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FEE 737 017764 sSecg 
BS IE oe 
3559 15a36 Boa? 3 0216e0 scan 
3554 O1e%42 012601 sbae0 
2230 ae eaa 002126 csaap 
2S 
3233 O1e456 104014 scam 
3e34 2970 
3235 22980 
es sa 
es 25 
3239 23020 
3240 ye 116100 os 23030 
SL Hiss SBS 
3243 012474 032710 000020 23060 
3e44 012500 001003 23070 
3e4S O1e50e 010137 001162 23080 
a6 012506 104010 arte 
3248 23110 
25 Hn we oem Big 
3251 012516 010137 OO1162 23140 
seSe OleSee 104010 23150 
3253 23160 
3eS4 23170 
2255 231 
3eS6 23190 
e Est 
3e59 012524 004737 016204 23220 
af Bee Bes ES 
sebe 23250 
3263 23260 
3e64 012532 017777 167160 167170 S350 
cee 012540 032777 000100 167150 53580 
3267 ateee ao 214 23300 
a ae 
3270 O1e560 104015 23330 
3e71 23340 
012562 77 001000 167126 23350 
3e73 Ole570 001007 gsse0 


fe ee creer eres eames we - oer me eee ee ae 2 ee: er ee 


ee ERROR 


1S: 


2s: 


3S: 


4S: 


MOV 
JSR 
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+ ieee 


JRKDS, -(SP) 
PC, CROTLF 


(SP)+,R1 
BUSY(R1) 


* aliens 


BUSY(R1),RO 
#177600, R0 


#ik 
#8174, (RO) 
3$ 
R1,SREGO 
10 


POS(R1) 
4$ 
R1,SREGO 
10 


PC, CHKDRV 
PFTERR 


ORKDS , IRKDA 
#RWS, JRKDS 
S$ 

PC, GTYRG 
 aatmmaad 


#SIN, ORKDS 
PSINER 


tO R SEEK OPERATION UNGER INTERRUPT MOLE 
FEONTROL BOY nf SET, AFTER A SEEK 


;GET ORIVE_# THAT INTERRUPTED 
;ROTATE BITS 15,14,13 TO POSITION 


GET THE ROTATED BITS (ORIVE ID BITS) 
:CHECK THAT DRIVE WAS BUSY 


;*BUSY’ FLAG FOR THE INTERRUPTING DRIVE 
: DRIVE # (15,14,13 - RKDS) 
‘INTERRUPTED AFTER SEEK WAS COMPLETE. BUT 

ING TO THAT DRIVE 


UBS CLEAR” TF THE COARECT DRIVE. He 
tT NTERREPTING "BUSY? FLAG SHOULD HAVE 
;BEEN SET. 

iEORM THE’ ADDRESS OF THE 

’ 


;CHECK THAT POSITION BIT WAS SET 


;GET DRIVE NUMBER 
;POSITIONING FLAG (IN KEY) IS NOT SET 
;SET FOR INTERRUPTING DRIVE (GIVEN IN EROR 


3M ) 
;CHECK POSITIONING FLAG WAS SET 


OR ORV ERORS (DPL,ORU,DRY,WPS) 
A DRV EROR 


9 
*YES 

GET RKCS,ER,DS,DA 

GET DRIVE & FOR TYPING SERIAL # 
*R/W/S RDY_NOT SET FOR INTERRUPTING 
*DRIVE (RKDS), AFTER SEEK WAS COMPLETED. 
: SIN? ERROR? 


coo ee 


MO6b 
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are Gleeoo Ooi060 a8 Mo ken 
328 12602 105061 02126 5410 CLRB = BUSY(RI) SCERR BUY FLAG FOR THIS DRIVE 
79 Oleed& 000207 23420 RTS PC 
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| 
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PSINER: JSR 


PSRTRY: 


1S: 


PFTERR: 
R 


PORKER: 





Be” GTYRG 
»SRORV 


#8I1T4, (RO) 
POS(RI) 


BUSY(R1) 


PC,CLRSIN 
PC, SINCNT 


PFTERR 
RETRY(R1) 
POS(R1) 
BUSY(R1) 


#3,RETRY(RI) 
wBIT12, (RO) 
PC 


ea (RO) 


RY(RI) 
Ri Re 


ABORT 
ge 


MSG10 
Pc 


481712, (RO) 


PC, GTYRG 
ye » SRORV 


BUSY(R1) 
PSRTRY 


;CLEAR HI PRIORITY BIT IF SET 










EDGING POSITIONING (SEEK 






ORIVE #, FOR TYP 2 

HYEIW OW DBtNe (PORTIONING) SEEK 
POSITION NG? OT 

‘CLEAR POSITTIONING FLAG 

; CLEAR BUSY FLAG FOR THIS DRIVE 





;CLEAR ’SIN’ ERROR 


;KEEP COUNT OF ’°SIN’ ERRORS. IF MORE 
THAN * MAX? ete THE ORIVE 
RETUN HERE OUNT=MAX 











;RETURN HERE IF COUNT LESS THAN MAX 
; INCRMNT ee Tey COUNT 
CLEAR POSIT pon FLAG 

CLEAR BUSY FLAG 

sDONE ALL RETRIES? 


;YE 
ge HI PRIORITY ON RETRY 
; RETURN 





; INDICATE COMMAND ABORTED 
;CLEAR RETRY COUNT FOR FUTURE USE 


; INCREMENT ABORT COUNT 
;CLR HI PRIORITY BIT 
;PRINT ABORT MESSAGE 





SIF _ANY ERROR BIT IN RKCS SET 
°GET DRIV FOR TYPING SERIAL # 
iON N DOING P POSITIONING (SEER) 





60 CLEAR THE HARD ERROR 
;CLEAR POSITIONING BIT IN KEY 

;CLEAR POSITIONING FLAG FOR THIS DRIVE 
;CLEAR BUSY FLAG FOR THIS DRIVE 









BO? 
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Fee 
Fe e: § 8 $ g. 
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131 4 MOV ,$REGO :GET EXPCTD RIVE NO. 
3333 ptat3 10335 Bete 54458 MOV 3: Sreae :GET DRIVE NO. RECVD 
3353 13146 480 ERROR rs : LINEXPECTED bRIVE NO. INTERRUPTED 
Sec O131e2 01 a = thoy a 
$388 13188 if 002236 gv510 HOV. RO, SAVKEY 
ee OG Gery 7770 6 BESS Bie) 8177770,82 CET POSITION OF THE PRRRRETER 
3390 pistse staan 166526 Sieeg MOV JRKCS, RY 
339 o13i74 042704 177761 24560 BIC 9177761, R4 sCLEAR ALL BUT FUNCTION CODE 
3 13200 016305 002532 54570 MOV PCMND(R3),RS  :CHECK THAT THE FUNCTION IN 
24580 *RKCS AND THE KEY ARE SAME. 
3394 013204 126504 24590 CMPB 2S) RY 
ae 013210 001406 Suet BEQ 7$ IF NOT, EI 
3397 Oise Dl6S37 O00002 OOl1b2 24620 MOV 2(RS), $REGO :GET EXPCTD FUNCTION CODE IN RKCS 
$338 1 010437 OO1164 24630 MOV RY, SREGL :GET CODE RECVD 
013224 104033 24640 ERROR 33 ‘FUNCTION CODE THAT IS IN RKCS AFTER THI 
3409 24650 ? INTERRUPT OCCURED IS NOT THE EXPECTED ONE 
3401 013226 042710 900200 C4660 7S: BIC 88177, (RO) j CLEAR "FUNCTION IN PROGRESS’ 
3402 Ol 142761 000200 002126 24670 BICB sBIT7,BUSY(R1) :CLEAR BUSY FLAG FOR THIS DRIVE 
3403 013240 73? 016204 24680 ISR PC, CHKDRV :CHECK FOR DRIVE ERRORS 
3404 013044 24690 RTI TF THERE WAS ANY rive EROR 
3405 24700 *DESELECT THE DRIVE AND EXIT 
3406 24710 IF NO ERROR, RETURN HERE 
3407 0132% 001000 166442 24720 BIT 8SIN, JRKDS SIN ERROR? 
3108 013254 01426 e173 108 
013256 021652 740 ISR PC, RGYSDR ;GET RKCS, ER, DS, DA AND DRIVE # FOR 
3410 24750 :TYPING SERIAL DRIVE # 
3411: O1sebe2 104016 247 ERROR 16 SIN ERROR 
3412 013264 004 015620 24 ISR PC, CLRSIN 
3413 013270 004737 015732 24780 ISR PC’ SINCNT sHELP COUNT OF SIN’S. IF 
3414 24790 *THAN MAXM ALLOWABLE. DESELECT THE DRIVE 
31S 013274 oo00c2 24800 RTI *RETURN HERE IF COUNT=MAX 
| BS oy 105261 002146 cies0 INCB -RETRY(RI) POE Oe Fm ee 
| Sule pt 3e78 122761 O00003 O02146 24830 CMPB 0s«a&3,, RETRY(R1L) 
3419 013310 O01 24840 BEQ 8s’ 
3420 013312 052710 010000 24250 BIS BIT 12 (RO) 
3421 013316 042710 000020 24860 BIC T4, (RO) 
sce 013322 oo0o02 RTI 
| eM 13324 oow737 O1N1z2 54850 8S: JSR —~PC, DRVABT ;ABORT THIS FUNCTION 
sic 1 oooode2 4500 9$: RTI 
3427 13338 032777 O40000 166362 24900 108: BIT SHE, ORKCS ;HARD ERROR? 
| 348 O1 001 24930 BNE RR 
| 3429 013342 neereed 100000 166352 24940 BIT BERR, IRKCS :SOFT ERROR? 
| 3430 012350 001002 24950 BNE SFTERR : YES 
| 3431 012352 000137 013774 24960 IMP NOEROR *NO 
i 
| 
| 
lL 
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@WCE , JRKER 
1$ 


#81T0,ERCODE 

S370, ERCOOE 

#61T0, ERCODE 

WCECN(R2) 
MSG2 


aCSE , JRKER 
es 


#8171, ERCODE 
8B1T1, ERCODE 
#B1T1,ERCODE 
CSECN(R2) 
»MSG3 

MSGS 
PC, TYPFN 
PC’ GETINE 
PC;GTSORV 


84,R4 
3$ 
PC ,DATCHK 


CMNERR 
CMNABT 





; THERE WAS A SOFT ERROR 


ig THE CS ERROR BIT 
; INCREMENT CSE COUNT FOR THIS DRIVE 


;GO TYPE OUT THE FUNCTION THAT GAVE ERROR 
i SAVE IVE #, FOR TYPING SERIAL 4 
5 SOF Gry Een Of PERF 

:T an ERROR 
tneSonGe 1S BROKEN DEL INTO DRUE 

Cs, SUR 8 
WAS IT A READ FUNCTION? 
GO CHECK THE DATA READ 
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ERRERERREAERER 
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Ce en ce te ee ee bs Rs e-s Hb best 
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Oooo0o000o E000 200 ©8OO 


SRRERSAH SUN 


SUS SERROR US cRERaaSenAnNcoeesr name came 


RENERARRES 


E07 





;1F THERE WAS A HARD 
ERROR DURING THE DATA 
; TRANSFER ENTER HERE 


a , ORKER ; SKE? 
1 


#B1T2,ERCODE § ;ALREADY WORKING ON A SK ERROR? 
RR :YES - IGNORE THIS ONE 

881T2,ERCODE §§ 3ANY OTHER ERROR? 

cnast :YES - ABORT THIS FUNCTION 

#BIT2,ERCODE  § ;SET THE SK ERROR BIT 


SKECN(R2) ; INCREMENT COUNT FOR SKE 
HECN(R2) ;ON THIS DRIVE 
»MSG1 


$167740,dRKER ;ANY HE BESIDES SKE? 


#BIT3, ERCODE ;ALREADY WORKING ON A HE ERROR? 
C ; YES oTmee THIS ONE 








8B1T3, ERCODE 
CMNaBt YES - ABORT fans FUNCTION 
#BIT3,ERCODE  ;SET THE HE ERROR BIT 
HECN(Re) ; INCREMENT HE COUNT FOR 
,MSG4 THIS DRIVE 
MSGS sPRINT ON DOING’ 
PC, TYPFN GO PRINT OUT THE FUNCTION 
*WHICH GAVE THIS ERROR 
Pe’ CrSORV SA #, FOR TYPING SERIAL # 
22” + BORD PRAOR ON DOING DATA XFER 
RETRY(R1) s INCREMENT RETRY COUNT 
RETRY(R1) 3 TRIES IN ALL? 
CMAABT YES, ABORT THIS FUNCTION 
#81712, ISAVKEY ;INDICATE HIGH PRIORITY ON RETRY 
nBITM, SSRVKEY sCLEAR "POSITIONING HEADS’, IF SET 
PC,C CLEAR THIS ERROR 
ERCODE ;CLEAR ERROR CODE 
pc T sABORT THE FUNCTION 
aSKE , IRKER >SEEK ERROR? 
R1, QDRV *SET DRIVE NUMBER 
sRESET THE CONTROLLER 
; T THE DRIVE 


ae ns _ ~ ne ee Spe ae ee 
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3528 013772 000002 25950 38: RTI ;THIS DATA TRANSFER 
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MSG28 
RETRY(R1),-(SP) 


oooo 2000000 


6b 0 Fe 
out dams ov 


es 
HORROR 
S8sSssss3ss 


: 


830 


acntarhasbeciaraantal: 
% 


T 


eae O REE Be 


R 
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; IF THERE WAS NO HARD OR 
;SOFT ERROR ON DATA TRANSFER 
sENTER HERE 


;CLEAR PRIORITY BIT IF SET 
G0, COLLECT STATISTICS ON THIS 
‘DATA TRANSFER 

;WAS IT A ’READ’ FUNCTION? 


;IF IT WAS *READ’, CHECK THE DATA 


;WAS IT A ’WRITE’ FUNCTION? 
75 a CHK’ TO FOLLOW THIS 


fr TFL Be BIT 70, INDICAT INDICATE 


;WRT CHK FUNCTION? 
;CLEAR WR CHK FLAG 


;SET FLAG TO INDICATE THIS 
;FUNCTION IS COMPLETED 








Cot ee ee + pi hs La Lag age ee ncn US ee 
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3574 26430 sABORT THE FUNCTION ON DRIVE POINTED TO BY RI 
32/5 26440 “CLEAR ASSOCIATED FLAGS 
gb450 “DROP THE DRIVE IF MORE THAN 8. ABORTS 

3254 014122 01024 26470  DRVABT: MOV R2,-(SP) ;SAVE Re 
373 giles 1 1 002146 264 CLR RETRY(R1) 

14] 10 104000 264 BIS #I04000,(RO) § ;INDICATE THAT FUNCTION IS ABORTED 
3581 O14134 042710 010000 BIC #81T12, (RO) ;CLEAR HIGH PRIORITY BIT IF SET 
386 141 0 gb510 MOV R1,Re 

14] ASL 
3584 014144 530 INC ABORT (R2) 
3585 014150 002372 900010 26540 ABORT (Re), #10 
see qaep 137 015760 seen a 3 CT OP THE DRIVE 
3588 014164 ese spose 1$: MOV (SP)+,.Re2 PP OF TORE 
3589 014166 104400 002667 26580 TYPE Msc10 :TYPE “ABORTED” 
3590 014172 000207 26590 C : RETURN 
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ret 
5 
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Seog 
3600 
Ea oiee 
14176 o0eSS6 
ey praess 17. ooess6 
So Given) Olver oy 
3606 014216 000410 
3607 
3608 014240 
3609 014240 013746 001100 
3610 O14244 O0S5216 
soil 14246 104404 
le 014250 004737 020610 
eis 014254 000137 De2e332 
3615 014260 032777 OOO4OD 1646Se 
si8 O14e70 ome ESE 
361 14) 1 
zig Ole ionoy Olels 
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014366 004737 015436 


da05 th 000001 001764 
005000 


SES PACHA EAS AACA ACCA! 
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; is SLaRT ING PS SORES hea ren, 





07 





; THIS tied GENERATES THE 8 COMMAND REQUESTS AND PUT THEM IN THE QUEUE. THE 


fa ie Pe see comers wa BE PERFORMED. 


SURFACE, SECTOR. 


;THE QUEUE IS LOCATED AT ’CMND’ (TO ’CMNDS’). 


GENSRQ: SKSUR 
REPCNT ; DECRENENT REPETITION COUNT 
a bentr, REPCNT tober nar Tan Nee REPETITION COUNT FOR EXERCISER 
TYPE 65$ REE Be ase TS Z STRING 
BR 4§ GET OVER THE ASCIZ 
jiB5s: WASCIZ ¢15)<12><12><12>/END OF PASS/ 
MOV S$PASS, -(SP) 
NC (SP) 
YPDS 
JSR PC, REPSTAT 
IMP bp 
1S: BIT #SWB, ISWR 
BEQ 2s 
T , SCRLF 
T SCRLF 
ISR PC REPSTAT 
es: pit gS. aSu on . 
HALT *YES, PRESSING CONTINUE RESUMES PROG EXECUTION 
3S: JSR PC, CHDPRS sCHECK IF ANY DRIVES PRESENT 
4g: MOV #kEY, RO 
MOV RO,R4 
CLR Ri 
ae HOo.R % a BF ROTCATE FHEIR 
cH ce in Te Bde bs 2 ey a6 one 
MOV tipete THE PARAMETER TABLE 
MOV aehnD RO - 
MOV #-40,R1 ;FOR THE 8 COMMANDS IN Q 
6S: CLR (Ra)+ (8X4) WORDS IN ALL 
NEO 
ISR PC,CLRFLGS CLEAR THE FLAGS PERTAINING TO THE 8 
?R4 CONTAINS ’KEY’ 
RS CONTAINS *CMND’ 
GENI: CMP #1, ORVPRS ONLY 1 DRV PRESENT? 
BNE 22$ = NO 
CLR * YES 
BR 3$ 
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49 
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004737 


O2S3Sé 
013746 





025224 


015372 


015372 
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od2e02 
002202 








3$: 


318: 
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JSR 
RSORVL 


MOV 
CLR 


PC, SRAND 


a 


(SP) +, QFNC 
PC, SRAND 


REY, = CSP) 
~(SP) 


cyLNAe -(SP) 
aesO1V 
(se ‘ 








BOGAN, URE, 


sFROM THE AVAILABLE DRIVES 





;PUT TT DIVIDEND ON STACK 

: CLEAR pea DIVIDEND AND PUSH 
;1T ON oa 

sPUSH DIVISOR ON TREN ROUT 


:G0 TO ve eee 
fey REMATNOER” Re QUOTIENT IS 
NOW ON TOP” OF THE STACK 


— SURE CORRECT MAPPING IS DONE 

;*QDRVE’ CONTAINS RANDOM DRIVE NO. 
;TEST IF TYPE F DRIVE 

:NOT IF POSITIVE 


;CLEAR THE FLAG BIT 
00D OR EVEN DRIVE ADDRESS 


;MUST HAVE BEEN AN ODD ONE 

; INSURE THAT ODDS WHAT WE WANT 
;MUST HAVE BEEN AN EVEN ONE 
NO GOOD - TRY AGAIN 
;GENERATE A RANDOM NUMBER 


;PUT LOW DIVIDEND ON STACK 
DEND AND PUSH 


i CLEAR HIGH DIVI 

;1T ON z 

: DIVI ON S 

;GO0 TO *DIVIDE’ SUBROUTINE 

;D1 INDER. QUOTIENT IS 


'NOW ON TOP OF THE STACK 
'MAKE SURE CORRECT FUNCTION IS SELCTD 







; THE FUNCTION THAT CAN BE PERFORMED 
;GENERATE A RANDOM NUMBER 


;PUT LOW DIVIDEND ON STACK 
iin ae DIVIDEND AND PUSH 


SOR 
tot TO Ue DIVIDE TRSIBROUTINE 
SDISCARD THE REMAINDER. QUOTIENT IS 


1 
1 
1 
1 
1 
1 
1 
1 
1 


1 
5 
8 


SSS8888 


dugusenuasa saataessue Vane SN SBaNOON TONS 
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ASSUMING THAT ENOUGH penony 


Fae Bh Shanes Ne ava ILABLE. ON N THAT CASE, THE WORDS 
0 BE ben The SPACE ANAL BAYT MAT THEE et Te DOES NOT OCCUR. 


a3 
— 
<£ 


B 


Bowe 
1- PD 


Page 
aoe 











;NOH ON TOP_OF THE STACK 
:(FROM 0-312) 


s"QCYL’ CONTAINS RANDOM CYLINDER NO. 





;’QSEC’ CONTAINS RANDOM SEC # 
;SELECT SURFACE # RANDOMLY 


;SURFACE 1 
3R1 CONTAINS THE MAXM WORD COUNT BASED ON 


;AVA ISK SPACE. 

3Re a HE MAXM WORD COUNT BASED ON 
;AVAILABLE MEMORY SPACE. 

PO cect 

14 SE EFORS ON SUR 0 

ah ent tet wa THAT CAN 
ig ER 
A BE_ TRANSFERRED MA 


fer haircare 


;AVATLABLE DISK SPACE 
;COMPUTE # OF SECTORS AVAILABLE ON 
;CYLINDERS SELECTED 


COMPUTE # OF SECTORS AVAILABLE 
BEYOND THE CYLINDER SELEC TED ee 
PUT T Pu HeLicanD On ON THE STACK 


$8°8 OF THE PRODUCT 





Eee ios er PenP prety STrE tra SEREEBRSES ES EEECEE BE 


015114 


o1sizo 


alsise 


usr 


000400 
O2e4S26 


MACY11 27(732) 
SER PROGRAM 


O0eSSe 002214 


025400 
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SeSeEEE 


rr 
mo 


SSBB SEE 
BSS8SS58 


Ss 


Tu 
@ 
av) 
_ 
Oo 


215: 


10S: 


11S: 


PC, SRAND 
RSBAH, -( SP) 
-(SP) 

-(SP) 
Bc aasDIV 
(SP)+ 


(SP)+, QBUSAD 
apusad 
BASEBA, GBUSAD 


8177777,-(SP) 
-(SP) 


R3,-(SP) 
PC’ aeSDIV 
(SP)+ 


(SP) 
(SP)+, WCMAP 
PC, SRAND 


RSWCH, -( SP) 
-(SP) 


3 sPUT THE MULTIPLER ON THE STACK 
;PUT THE ry RGuTiNe ON THE STACK 


1 Btbheldbc Wd 


-GET THE LSB’S OF THE PRODUCT 
: COMPUTE TOTAL # OF -SPACE 
;AVATLABLE ON DISK FROM THE SELECTED 


RE Oa, 

REMAINDER. QUOTIENT IS 
iNOW ON, ON TOP OF THE STACK 

;BE USED 


;R3_ CONTAINS THE MAXM WORD COUNT 


INBBPING FatoR FRon Tug UN 


;PUT LOW DIVIDEND ON STACK 

CLEAR HIGH DIVIDEND AND PUSH 

;1T ON Pree 

;PUSH DIVISOR ON STACK 

G0 TO THE "DIVIDE’ SUBROUTINE 
:DISCARD THE REMAINDER. QUOTIENT IS 
NOW ON TOP OF THE STACK 

;WORD COUNT MAPPING FACTOR 
;GENERATE A RANDOM NUMBER 


;PUT LOW DIVIDEND ON STACK 
;CLEAR HIGH DIVIDEND AND PUSH 


— > + 
WOON UT 
“vo 
ee 


b= bo Be BE hee 


% 
r£o 


ed ee el ee ee eee Se er ed 


SSeS | RRSERES RDN 
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002232 
024640 


002216 
002216 
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002210 
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000002 
025400 
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: T one 
WCMAP , -( SP) : 


cept scien ike 1s 


ON 
(SP)+, QWRCNT $*QURENT? NS RANDOM 
; WORD COUNT THAT WILL BE_USED 





uC NT gRAKE SURE THE WORD COUNT 1s 

QHRCNT TAKE CARE OF ZERO AND NEG NMBRS 

QDRV, RO 

RO 

RO sPOS TION THE DRIVE NUMBER IN 

RO BITS 15,14,13 

QCYL,R1 

Ri 

Rl sPOSITION THE CYLINDER NUMBER 

Rl IN BITS 12-5 

Ri 

R1,RO 

QStc, RO ;RO CONTAINS THE COMPLETE DISK 

QSUR; RO ADDRESS 

RO, (RS)+ ; INSERT RKDA IN THE PARAMETER TABLE 
;(FOR THE 8 COMMANDS) 
* WHICH FUNCTION? 
:0-READ CHECK, 1-READ, 2-WRITE 

#1, QFNC 

2s 

14S READ CHE 

#2, (RS)+ Re ITE EENCTION CODE 

RSWCH, #77777 = SHOULD WRITE CHECK BE DONE 

15$ jARTER THE WRI 

8817S, (RY) *SET FLAG IN KEY. "10 INDICATE 
‘THAT WRITE CHECK SHOULD BE 
:DONE FOLLOWING THE WRITE 

1S$ 

wi (RS)+ READ FUNCTION CODE 

#12, (RS)+ READ CHECK FUNCTION CODE 









QWRCNT, (RS) ; INSERT THE , COUNT (RKWC) 

(RS) ;(2°S COMPLEMENT 
;INSERT THE BUS ADDRESS (RKBA) FOR 
;THIS COMMAND IN THE PARAMETER 





tcey THE 
QDRV, (R4)+ CE DRIVE NUMBER INSIDE 
'THE KEY FOR THIS COMMAND 
RY, #KEY+20 {GENERATED @ CONNANDS IN 
‘THE QUEUE? 


17S 












foe eee 


NO? 


ee pa eo gh) Maat O4-NOV-76 13:36 PAGE 92 
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300 ene 000137 014372 te JMP GEN1 iif NOT, GO BACK AND GENERAT® 
;THE NEXT COMMAND AND THE 
BIS BS UE aise Bee PE EN ccm ee ne 
18390 60207 e550 Ris Re SAL 8 COMMANDS HAVE. BEEN 
015372 000000 ese ODDEVN: 0 . 
a 
| 
| 
| 
| 
os 
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SEGNTROL 18 TRANFEESED To" THIS, ON RETURN FROM THE ERROR PENOLER “SERROR® 


i 
ne 


4 
2 
ih 


015274 004737 O1S4s4 EXCRLUP: JSR PC, CLRERR SALT FOR OTHER DRIVES 10 GET CONE 
STHEN ISSUE A CONTROL RE 

15400 910146 994 MOV RL = (SP) = 

12701 02006 MOV ;CLEAR OUT THE COMMAND-KEYS 


* 13 IC nies (R1)+ 
Bie bs lev Abse52 58398 : MP Ri, skEY$20 
8980 NE 1$ 


154] 1 2 8 

1ea52 pags 01543¢ e550 Tee Be CLAP EGS CLEAR OUT THE VER OUS FLAGS PERTAINING 

co a a a a a Pe 

1 1 1 IMP QMNGER ist RT y R AGAIN, PR cess THE COMMANDS 
sane :(ON EROR arth’ su 9) AN AIYENPY Ts MADE 
sar 19 CREATE THE SET OF E S WHICH LED TO 


PRUE DIMEcE MRS MMaei a ct ct 


231 
s3! 5 OES it 
s3l ;THIS ROUTINE CLEARS OUT THE VARIOUS FLAGS USED FOR THE 8 COMMANDS IN THE QUEUE. 

0154 002126 1 CLRFLGS: Y,RO ;CLEAR THE 8 SUSY FLAGS 

Diswe bos020 Saiep iss cue (Rc 

Dis444 Oe00e7 O02lb2 29170 CMP RO, SOSCNT+2 ;ALL DONE? 

Q154S0 001374 29180 3NO 

3910 O1S45e 000207 23190 RT 


é 
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DZRKHE.P1] EXERCISER PROGRAM 
EEE 53610 ieLhe ROUTINE IS ENTERED WHEN A HARD ERROR HES 
1 2s 0 : PRED. T IVES THAT HA 
14 sRDY BI We N R/W/S 
1S : oc IT i T eB 
& :CLEARED FOR THAT DRIVE. AFTE 
2 SEEKING, A CONTROL RESET IS 
ig 1 10446 $2 CLRERR: MOV RY, -(SP) 
3920 O01 10546 MOV RS; =(SP) 
3921 01 1 FS oa 
see 15462 005077 164242 CLR 
3924 sieves 105765 002126 29340 18 TSTB ; (RS) 
Cg Poe a 
= 000106 164210 29370 2s BIT RUS, IRKDS 
3928 01 1018 29380 BNE 3$ 
ea fet Ban eC 
1 615516 oi 021652 eei0 ISR PC, RGYSOR 
3355 015522 104004 53450 ERROR 4 
1 1000 164164 BIT N, 

Be pisses ge777 00 esis) git sSIN,aRKOS 
ef 015534 004737 o216S2 29470 ISR PC, RGHSDR 
O1SS4O 104016 53490 " ERROR 16 

3340 29500 
3041 15542 116504 002126 29510 23S MOVB - BUSY(RS),R4 
3e42 015546 042704 177760 BIC 81 WRY 
a3 Oi5552 062704 bocane ADO sKEY,R4’ ; BUSY 
3045 O1S5SS6 042714 010000 BIC #10909 (R4) 

| SHG O15see 105068 O0el26 CLRB ¥ (RS) 

| 3048 

| 3649 O1SSbb 062777 020000 164134 390 (4S: ADD 820000, IRKDA 
3950 015574 Oos20s 29600 INC RS 
3951 = 026705 000010 CMP 810,RS 
3952 0] 1331 BNE 1§ 
32e4 1S604 737 020032 2% JSR PC, CRCMND 

| 3655 seat eit Seren CON. RESET 

| 3956 o15612e 01 e360 MOV (SP)+,RS 
3957 015614 012604 2% MOV (SP)+)R4 

| 2958 015616 000207 29680 RTS PC 

! 

' 

| 

1 





BEEN BUSY ARE we ae! MED T 19 se ed if xi, A Rew 


1 Be 


a 
ote t S_ DONE FOR an ty weet HAVE SEEN 
SSUED TO CLEAR THE HARD 


;SAVE RY, RY ON THE STACK 


es THIS DRIVE BUSY SEEKING? 


8 

DRI 
;FORM THE ADDRESS OF THE 
3 ORI 


Gear HIGH PRIORITY BIT, IF SET 
, AVAILABLE 


;RODRESS THE NEXT POSSIBLE DRIVE 
INCREMENT COUNT 
SALL DONE 


MAKE THIS DRIVE FREE 


;SAVE INFO ABOUT THE PAST & PRESENT COMAND 
;RESTORE R4Y,RS 
; RETURN 
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: : 
EY 6 Ff & * 
Soy & es ns 5 
Rages oey E cpb 55S pe 
at a 

ee a i 
eeeue yotet. g 5 “Se Sees SS 
Sees fst & © ese aa. oe 
swiss tse S$ met ass BE 
“S. we va Fo 8 ms ae. o?z 
cnggwe Fees Bs gee luge Eee 
neh ase Bui EZeo Egode Coe 
eevee, SatHase: 9 ESR UECed Sas 
"3 = : ; 

eer 28 5 2 
a ee 
GW eo: Se Sof Fantes . Gee s ee 
Geers BH BOB Sohmmmn Bban Ease 


EE a a 


PoRivte 

Sh oes PBR By 

ze ae Seas 88 ; 

5 erench BRAS Be 
= Bs Eaysiee @ hee 2 Be 
a daa doom & Goo BG 


RODRIANTE PRRRR RR Rn On enenener Senne nGRe 


me a ee tee ee eee ee eee 


ee ee ee ee ee ee 





cr 
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3998 30100  ;SINCNT 
3993 30110  ;THIS ROUTINE IS ENTERED WHEN A ’SIN’ ERROR OCCURS. THE 'SIN’ COUNT FOR 
4900 30120 THE DRIVE GIVING SIN’ IS INCREMENTED. IF MORE THAN S ” S 
301 s OCCURRED T DRIVE S DESELECT AT THE TIME OF ENTRY R1 CONTAINS THE 
140  :3DRIVE NUMBER THAT GAVE 'SIN’ E ERROR. 
301 sCALL: JSR PC, SINCNT 
4008 30160 LS, i 2 Be HERE IF SIN COUNT (MAXIMUM ALLOWABLE) 
1 5 0 eee ee IF TOTAL SIN COUNT LESS THAN MAXIMUM 
Mesid 35180 : as [pina e 
4008 30200 
woe 1 105261 sree SINCNT SINCN(R1) NCREMENT ’°SIN’ COUNT FOR THIS DRIVE 
sae Ne 12 1 anid 002322 35555 : cree Se CINCH ERI) i cree OCCURRED? 
aoi3 pees ié oo000e 5c , (SP) ‘ADJUST PC FOR RETURN TO THE RIGHT POINT 
4014 015752 30260 RTS PC : RETURN 
4016 015754 000137 015760 30280 18: IMP DSELCT ;5 ERRORS OCCURRED, GO DESELECT 


eee 


MIINDEC-11-DZRKH-E 
DZRKHE Pil EXERCISER PROGRAM 


5S 


2 CO) 


wood 

size 

Be 

woes Bleves Gasene 022789 
ae ee 
4034 sea Soe be 001764 
4035 016004 001367 

Mit 016006 000474 

ss Hs Ba 

wO42 016016 porens 001764 
4043 016022 001406 

4o44 Gieces i 

4045 : 

uoa? Dledse | ABS7O4 001763 
4048 016036 001374 

4049 016040 105065 177777 
4050 

4051 

4052 

apes 16044 104400 003041 
4055 016050 010146 

ube? oteoed Gor 

upee Bt B00 

i053 016056 004737 026374 
4061 016062 005337 001764 
WDE 016066 004737 022304 
4064 

Wee 016072 012746 177777 
4067 016076 O0SO46 

i oie wee Be 
wor 16110 005726 
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Co 





SSOP ain uri SerTERe 


nig ROUTINE 


TS ENTERED WHE 


Ce MOR ae AE Rg Re gs 
DRIVE 


A DRIVE IS TO BE DESELECTED (TAKEN 


SELECT! Teo IVE ae DESE EctES af. 1, ate mh COUNT 
ACHES THE MAXIMUM ALLOWABL %, IF 
. IF ues" GETS set OR ORY 


» DRIVE POWER LOW OCCURS. 


8PDR-1,R5 
Re sLOCATE THE DRIVE (TO BE 
(RS),R CTED) IN THE TABLE 
#1 ,R3 
R3,R1 1S THIS THE ONE 
:CONTAINING AVAILABLE DRIVES 
11S ;DRVE® WAS NOT FOUND IN TABLE, EXIT 
(Rs) 1S THIS AN F TYPE DRIVE? 
R2 
RS, #POR+10 : IS THIS DRIVE # THE LAST ENTRY IN TABLE? 
Re, RY , 
if NOT, TAKE out TH THIS S_DRIVE # FROM 
Bae (R4)+ 
‘RES T He MIDOLE AND ENTRIES 
3 Rs) ;CLEAR LAST ENTRY IN TABLE 
;THE DRIVE # TYPED OUT WAS DESELECTED x 
*BECAUSE ERROR COUNT EXCEEDED THE 
*MAXIMUM ALLOWABLE 
MSG19 TYPE ° DROPPED” 
Ri, -(SP) “PUSH DRIVE NUMBER ON STACK 
*TYPE IT ON THE TERMINAL 
0 
PC, SNOTYP TYPE OUT SERIAL NO OF THE DRIVE, 


PC,CHOPRS 


Peau 





; 
J 
#177777,-(SP) _ ;PUT LOW DIVIDEND ON STACK 
-(5P) ; AND “PUSH 
; 





t 


Q0o 
b= os pe 
o 


: 


8 
3 


e 


ZIFRELNS FESLERSPV 


oo 
b= & 2 bo bo f-2 9-0 p -o pe G+ b= PH fo HG = Ho 


= 


sSiSSeeSeRSERCLSSSES © 


g 
8 


6S: 


73: 
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(SP)+, DRMAP 


#104000, (R4) 
(R4)+ 
#KEY+20,R4 
6$ 








310 SE USED FOR GENERATING RANDOM 


C 
;I1N THE COMMAND Q’ CORRESPONDING 
TO THE DESELECTED ORIVE 


+ TAN COR ome DESELECTED 


JUST EXIT 
i058 OR EVEN DRIVE NUMBER 


;OROP CORRESPONDING DRIVE 





;GO RESTART EXERSISOR PART OF TEST 


08 
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4096 31030  ;CHKDRV 
1 THIS ROUTINE CHECKS FOR FATAL ERRORS OF THE DRIVE LIK ORV 

apse 31Rc8 i ipS ey it ore OF THESE ERRORE oF ee THE opti 1S KESPLEeTED 

4099 31060 ;AND NO MORE FUNCTIONS WILL BE PERFORMED ON THAT DRIVE. Ri 

4190 31970 *CONTAINS THE DRIVE NUMBER TO BE CHECKED. 

4102 31090 ;#NOTE 1: IN THE ERROR MESSAGE WHERE RKDA IS PRINTED OUT, IT GIVES 

4103 31100 #ONLY THE DRIVE NUMBER (NOT CYLINDER, SUFACE AND SECTOR). 

4105 31120 ;CALL: JSR PC, CHKDRV 

4106 31130 ; w=--- RETURN HERE IF ANY FATAL ERROR OCCURED 

4107 31140 ; ----- RETURN HERE IF THERE WAS NO FATAL ERROR 

4109 016204 01774 163520 31160  CHKDRV: MOV JRKDA, -( SP) ;SAVE RKDA 

4110 016210 010146 31170 MOV R1,-(SP) GET DRIVE # 

4111 ibele 1 311 CLC 

4112 O16214 OO6016 31190 ROR (SP) 

4113 016216 O06016 31200 ROR (SP) 

4114 016220 O06016 31210 ROR (SP) 

4115 Dibece 1 31220 ROR (SP) 

4116 O1 aes 163500 31230 MOV (5P)+, JRKDA sADDRESS THE DRIVE TO BE CHECKED 

4117 016230 010000 163460 31240 BIT #OPL, ORKDS *DRIVE POWER LOW? 

4118 O16 1403 31250 BEQ 1$ 

4119 O01 021652 31260 JSR PC, RGYSDR ;GET RKCS, ER, DS, DA AND DRIVE # 

4120 31270 FOR TYPING SERIAL NUMBER 

4121 016244 104035 31280 ERROR *DRIVE POWER LO, *NOTE 1 ABOVE 

4122 O0162% 032777 002000 163442 31290 15: BIT #DRU, JRKDS : DRIVE 

4123 016254 001402 31300 BEQ 

4124 016256 004737 O216S2 $1310 ISR PC,RGYSDR ;GET RKCS, ER, DS, DA AND DRIVE # 

4] 31 FOR TYPING SERIAL NUMBER 

4125 O16262 104036 31330 ERROR 36 sDRIVE UNSAFE BIT IS SET 

4127 31340 "NOTE 1 ABOVE 

4128 O16264 032777 OOO04O 163424 31350 2S: BIT #WWPS, IRKDS *WRITE PROTECT SET? 

4129 016272 001403 31360 BEQ 

4130 016274 004737 O21652 31370 JSR ,RGHSDR ;GET RKCS, ER, DS, DA AND DRIVE # 

4131 31380 FOR TYPING SERIAL NUMBER 

4132 016300 104037 $1390 ERROR 37 WPS SET, CHECK WATE PROTECT SWTCH ON DRIVE 

4] 31 ?#NOTE 1’ ABOVE 

4134 016302 032777 163406 31410 3S BIT #ORY, IRKDS ?DRIVE READY CLEAR? 

4135 Dies 1004 314 BNE 4g 

4} 1631 737 O2l6Se - 314 ISR PC,RGYSDR ;GET RKCS, ER, DS, DA AND DRIVE # 

4138 16316 104034 stuso ERROR 34 BRT TveING SERIAL NEHOULD BE SET 

: a 

41 3is60 sONOTE 1 ABOVE 

4140 016320 000411 31470 BR cg 

Hie 16322 012040 163366 31490 4S: BIT #12040,9RKDS § ;ANY ERROR? 

4143 016230 001005 31 BNE : 

4144 O16332 012677 1633 31510 MOV (SP) +, IRKDA RESTORE RKDA 

4145 016336 06271 beaa08 31520 ADD #2, (SP) ADJUST RETURN ADDRESS 

a4 016342 31530 RTS 

4148 016344 000137 015760 31550 «SS: IMP DSELCT 
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Pll EXERCISER PROGRAM 





NaI 
DZRK 






31570 
4150 31580 iff Neue ROUTINE GENERRAES A BUF a8 Fre R FUL RANDOM 9 a WORDS. THIS 8 BUFFER 
Hf 31660 Soutatne Tee OYSk ADDRESS WHERE Er af ae et SEED WORDS USED FOR 
4] Se iy OLUT Bis ADDRESS (DRIVE #, CYL #, SEC #, SUR #) - SHINUM 
4155S 31630; 3} OMPLEMENT OF THE ABOVE WORD 
4] 3ib4 CALL: JSR RS, GENBUF 
41 31650 x sX IS THE WORD COUNT (2°S COMPLEMENT) 
4158 31 : Y *Y¥ IS THE STARTING ADDRESS OF THE 
4153 31670 ‘MEMORY BUFFER. . 
4161 01 104413 16 GENBUF: SAVREG ;SAVE REG 
uiee ptpseD 016504 oo0002 3 MOV 2(RS) RY *GET STeRTING & RODRESS OF BUFFER 
4163 016356 011503 31710 MOV (RS) ,R3 GET WORD C # OF WORDS T 
di68 31720 ‘BE cENERATEDY 
4] 16360 01 1 MOV R2 
416 pt psea pt aos ieee 3158 1S: MOV RoRep TH ;GET THIS RANDOM SEED 
4168 016370 010237 31760 MOV Ro-RSDTL 
W168 016374 005137 Oe5402 31770 COM RSOTL ;GET LO RANDOM SEED ¢ 
4171 016400 022703 177400 31790 CMP #-400,R3 IF THE BUFFER IS MORE THAN 
4172 O16404 003003 31800 BGT 23 ONE SECTOR (400 WORDS) LONG, 
4] OIb4Ob 010305 31810 MOV R3,RS * GENERA BUFFER IN SUCH’ 
4174 O16410 005003 31820 CLR R3 °A WAY THAT EACH SECTOR 
wiz O164i2 O00404 31830 BR 3$ *BEGINS WITH RANDOM DATA 
4177 016414 062703 000400 318S0 2S: ADD #400, R3 ;WORDS GENERATED USING THAT 
4178 016420 012705 177400 31899 MOV #-400, RS *SECTOR ADDRESS AS THE RANDOM 
4180 016424 010524 1880 3S: MOV RS, (R4)+ i T WORD OF EVERY SECTOR IS 
418 1890 A WORD COUNT (2°S COMP) INDICATING 
4] 1300 OF WORDS ACTUALLY WRITTEN IN THAT SECTOR 
4183 O16426 191 INC ALL DONE? 
4184 016430 001427 31320 BEQ BS 
ui O1eHae 025224 31340 4§: JSR PC, SRAND ;GENERATE DATA WORDS 
41 164 1 RSOTL 
Wigs Olewde 13737 estos Dlesee atae0 MOV RSONANR 
Wig BIENeS D004B6 31360 OO 
413) D1bHSe 005337 016550 31990 «—«SS: DEC RCNT 
ils Bibies ff ee a a 
4194 O164 165 6S: TST RNUM 
419S 016476 001767 32030 BEQ 
4196 016500 0 016552 3204 MOV RNUM, (R4)+ ;FILL THE BUFFER. DON’T USE 
4197 16504 $cc INC RS ALL DONE? 
4138 01 001351 $2060 BNE 4g : 
4 16519 905703 32080 8S: TST R3 sANY MORE DATA WORDS (FOR 
4201 016512 00141 32090 BEQ 10$ ;REST OF THE SECTORS)? 
4555 16514 O1 35105 R2,-(SP) — 
4 pieele gt 177760 3513 BIC #177760, (SP) semeaai DISK ADDRESS 8 ITS 
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4e0S O16Se2 Odee7e6 000013 32130 CMP #13, (SP)+ 
4206 016526 001002 32140 BNE 9$ 
: O6e70e 000004 160 ADD #4,Re 
00S20e 1 9$: INC Re 
sil 016536 000712 tt BR 1$§ 
SE O16S4O 104414 470 10S: RESREG 
421 16542 ndhed 000004 3ee2l ADD #4,R5 
4214 D16S46E e RTS RS 
4215 30 
isis 016550 000000 32240 
4217 O165Se 000000 32250 








;COMPLEMENT) TO USE FOR 
sereto ie DATA WORDS 
;0F T XT BLOCK 


;RESTORE REGISTERS 
sADJUST RETURN ADDRESS 
> RETURN 

















MAI 
DOZRKHE .Pil 


4218 
4219 
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Dindiea® 
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R PROGRAM 


EXERCISE 


















32270; ATCHK 
os ie beng JF ROE Penis Manes oeeey Oe Plt ds 1 
Sa iE BESRESS OF OF THE PaReEYER LIST ( EoNTA 3 BA). bar 18° CHECKED IN 
3231 BLOCK OF 1 SECTOR (4 EACH BLOCK IS GENERATED USING T CTOR 
*ADDRESS (AND ITS BRT Sas RANSOM SEEDS. WHEN A DATA MISC ISON 
323 OCCURS THE BUS ADDRESS, EXPECTED AND RECEIVED DATA ARE REPORTED. 
1o¥4 DATCHK: SAVREG ;SAVE RO-RS 
Eas 002532 360 MOV PCMND(R3) ,R3 sGET ADDRESS OF THE PARAMETER 
016304 900004 380 MOV 4(R3),RY GET WORD COUNT (2°S COMP) 
016305 32390 MOV 6(R3).RS GET BUS ADDRESS 
011201 at MOV (R3) RI *GET DISK ADDRESS 
010146 MOV R1,-(SP) 
004737 021620 $2430 JSR PC, CROTLF sROTATE BITS 15,14,13 TO 
012602 32450 nov (SP)+,Re alae DRIVE # FROM THE STACK 
062702 o0e412 35450 AbD #DATER, R2 ORM THE ADDRESS OF DATA ERROR COUNT 
1 002240 se i80 MOV #-14, ECOUNT FOR = oe 
pieces 35230 MOV (R3);RSDTH ;CREATE RANDOM SEEDS TO 
013737 025404 o25402 32510 MOV RSDTH, RSOTL BE USED FOR CHECKING DATA 
137 Oe5402 22520 COM RSDTL 







: 
3 


1S: CMP 8-400, R4 ;DATA IS CHECKED IN 1 SECTOR 









003002 32550 BGT 2s "BLOCKS. EACH SECTOR IS GENERATED 
010403 32560 MOV R4,R3 USING THAT SECTOR ADDRESS 
p0s004 32570 CLR RY AS THE RANDOM SEED 
re cy = 
062704 00400 32600 25: ADD #400,R4 
012703 177400 32610 MOV #-400,R3 
012500 32620 3S: MOV (RS)+,RO Pi THE FIRST HO WORD OF THE SECTOR. 
RY SECTOR IS A COUNT 
32640 tN FCAT ING § OF WORDS ACTUALY 
32650 Aer TENT IN THAT SECT 
005200 b INC RO j INCREMENT COUNT OF # OF WORDS (WRITEN) 
005202 3ePah INC pa : Nor SOUNT OF DATA WORDS TO BE CHECKED 
001465 $2690 BEQ 14S *BRANCH, IF DONE 
004737 025224 32710 4g: JSR PC, SRAND ;GENERATE RANDOM DATA WORD 
012737 o00002 O16550 32730 
025404 32740 
337 016550 3e7ED 
ites 32770 
016552 80 
O16 
001767 32800 
32810 
005700 32820 





MSINDEC-11-DZRKH-E 
OZRKHE .Pi1 


a 


017070 


5S 


OVOOOO000O 
2 Bo ht Fm Gt & Beem be 
NNNNNNSNNS 
SRLZS=ESRAS 


MACY11 €7(732) 
EXERCISER PROGRAM 
De371S$ O16SSe 
001431 
Re 
porte 
BES one 
013737 016552 001164 
00S21e 
ihe 002240 

1413 
010537 001162 
011537 001166 
010137 001170 
004737 Oe16S6 
104023 
005237 002240 
005725 
005203 
001313 
001427 
010146 
042716 177760 
Oee7e6 000013 
001002 
062701 000004 
b35777 000002 162620 
Be0177 162622 
Soisge O2S404 
010137 Oe540e 
aed OeS40e 

44 
104414 
000207 
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0 
32 S$ CMP RNUM, (RS) 
328 BEQ 8$ 
oR 
BNE Eg 
32910 TST (RS) 
fs OURO 
CLR $REG1 
32940 BR 7§ 
32950 
32960 «6S: MOV RNUM, SREGL 
32970 75: INC (R2) 
32980 TST ECOUNT 
BEQ 
33000 MOV RS, SREGO 
33010 MOV (RS), SREG2 
33020 MOV R1,SREGS 
33030 JSR PC, GTSDRV 
33040 ERROR 23 
33050 
33060 
70 
3080 
33090 
33100 
33110 INC ECOUNT 
$3120 
331 eS TST (RS)+ 
33140 INC 3 
33150 BNE 4g 
$3160 
331 14$: TST RY 
33180 BEQ 17$ 
33190 
33200 MOV R1,-(SP) 
3321 
332 BIC #177760, (SP) 
33230 CMP #13, (SPJ+ 
$3240 BNE 1S$° 
ADD #4,R1 
33260 
$3270 1S$: INC Ri 
BIT #CSE, IRKER 
33290 BEQ 16$ 
cH Ri, IRKDA 
1 Q 
16$: MOV R1,RSDTH 
$3330 MOV RL RS *RSOTL 
33300 con OTL 
33360 17%:  RESREG 
33370 RTS PC 


;EXPCTD WORD = RECVD WORD? 


s YES 
; SAVE pA DATA WORD 
ZINCRMNT DA COUNT FOR THIS DRVE 


8 
tPF HORE ae We (OEC) DATA ERRORS 


sBavE ERROR Bus ApoRESS 
;SAVE ERROR DATA WORD 


PORTED. 
WANT MORE, CHANGE "ECOUNT’ 
WHATEVER # OF ERRORS YOU WANT REPORTED 


;DONE CHECKING? 


ANY MORE SECTOR BLOCKS 
T0 CHECK? IF NOT, EXIT 


;GET THE NEW RANDOM SEEDS 

i (ABSOLUT E DISK ADDRESS & ITS COMPLEMENT) 
310 USE FOR GENERATING DATA WORDS 

;0F THE NEXT BLOCK 


iON nes WAS A CSE THEN CHECK 
THOSE SECTORS THAT WERE READ 


;RESTORE RO-RS 


Mal 


HSRENe IR 


SELELECLE CELL 


£56 


3 


OOOOOOOOOOOOOOOOOOOOOOOOOOO00000 G2000%0O0 


—— See 


ot ne 


BB 0 BS be = 8 = 8 0 bt = 8 ps Pa he 


NNNNSNN 
Ce ool eel ok es 


“NN 
be 


| tome”: 


Pll ROUTINE "O. SI 


eee 

SFSE HFFSRKLER 
20r00 2000000 
Gaus BS3Se9 


oe 


ur 
bee 
o 


Sn 

£o 
oo 
yee 
— 


nin 


BRET RBNS SERIO ATONE 


oe 


“ 
tf 
& 
wW 
™“ 
ture 


000004 
017216 


177740 


000004 
172516 


000004 
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MEMORY 


-SBTTL ROUTINE TO SIZE MEMORY r 


5 5 RERREREREAELES LA ELELAL ERLE LL LL LLLELELELALELEFLELSLALALAAAL ALLL EE 


PC, SSIZE 


{4SLST AD WILL CONTAIN: 


HRT EET By = HST MIU RSE. ALP on 


fESLSTBK espa: THE LAST 
2¥SKT i Is Loe NT A 
jxBIT USE MEMORY MANAGEMENT 
"Be, SETUP. BEFORE THE CALL 
HEBITIS = =°9 Doh MANAGEMENT OPTION 
4% ERMINED HY ye RDU INE 
ssi: yi Og Bre 
MOV Ro? ) OVE Re The 31 K 
MOV R3°-(SP) ::SAVE RON THE S 
MOV a8 C,-(SP) ;;SAVE NT ERROR VECTOR PS & PC 
MOV C42,-(SP)" 
MOV SP RO »:SAVE THE STACK POINTER 
:;SET THE ERRVEC PS TO THE PRESE 
MOV JsTRAPVEC $3 SAVE CURRENT TRAP VECTOR 
MOV seus De TRAPVEC. ; }SETUP NEW TRAP VECTOT 
TRAP He PSW AND PC ON STACK 
64S: MOV 2(SP)  a#ERRVEC+2 33SQVE PSU IN SHERRVECHE 
MOV #655, (SP) ; OLD PC WITH 
RTI ; REST Tort’ Psu 
65$: MOV (SP)+,Q8TRAPVEC ; ;RESTORE OLD TRAP VECTOR 
MOV #3776,R1 >;SETUP ADDRESS 
TSTB. ss (PC) + USE MEMORY MANAGEMENT? 
SKT11: .WORD 200 33ST TO USE MEMORY 
BPL BR IF NO 
MOV KTNEX, QHERRVEC :;SET FOR TIMEOUT 
TST ht ARE YOU THERE? 
BIS #100000,SKT11  };YES--SET KT11 
CLR } >: INITIALIZE FOR SB aR LOADING 
MOV 8K IPARO, Re >:ADDRESS OF FIRST, “PAR™ 
MOV #t08,R3 LORD | EIGHT ° AND EIGHT “POR. ’S" 
1S: MOV 877406, -40(R2) }3POR = UP, /WRITE 
MOV (SP), (Re) + ‘LOAD | “Pas 
ene 5 i$ 4: UPDRTE UNTIL of AF et ETeH R ARE LOADED 
MOV #77200, -(R2) 3 ;SETUP KIPAR? FOR 170 
CLR ~(R2) KIPAR6 FOR TESTING 
MOV #2$, JHERRVEC HATCH TIMEOUT IF NO SR3 
MOV 820, J#SR3 22 BIT MODE 
BR HIS PDP-11 HAS A SR3 REGISTER 
23: CMP (SP)+, (SP)+ idem OFF THE STACK--NO SR3 
33: INC ae ON MEMORY 
MOV 8SKTOUT D¥ERRVEC ; -SET FOR TIME OUT 
4g: TST a4] 143776 : TRAP ON NON-EX-ME 
ADD (Re) t MAKE A 1K STEP 
CMP SEKLPAR?, (R2) 3;LAST ONE? 


08 
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ss TRY IT 
Re) RE 5 OT LAST BANK#I 





BH 
SKTOUT: MOV 
CLR 


o[00 - 
ae 


SS RS unlee 
‘ 1 177572 gush 3;TURN OFF MEMORY MANAGEMENT 
4 172 yog900 017216 SKTNEX: BIC +5000, S711 3;KT1 ISTENT 
4 17 1 17416 o00004 SCORE: MOV #SCROUT, JHERRVEC ;-SET FOR TIMEOUT 
uses Ot T ooyood 1S Ss S000. Ri $ret UE BANK Ik 
* 1 Obe70e p00040 #40, Re 31K STEP 
4 1 il TST (RLS 33 ON TIME OUT 
4395 01741 bee70 177776 CMP #177776,RL LAST ONE 
4 17414 BNE 1 ::NO--TRY AGAIN 
4 17416 1e270 004000 $CROUT: SUB #4000, Ri 
ee tine die lk: a ee See 
dugg pees seid oo0006 MOV PGP} s, DHERRVEC#2' | “RESTORE E VECTOR 
1 017434 012637 MOV (SP)+) a#ERR 
17440 010137 8 MOV R1,SLSTAD ;;LAST ADDRESS 
17444 bi0e37 17464 MOV Re: SLSTBK LAST BANK 
1746 12603 MOV (SP)+,R3 *:RESTORE R3 
4a Be 1 01 MOV (SP)+’R2 : RESTORE 
me fines Ble RY (ised HERES 
4408 eas eaeiag RTS .." ig 
4409 O17Mbe 999500 SLSTAD: .WORD 0 s;CONTAINS THE LAST ADDRESS 
4410 O17464 SLSTBK: :WORD 0 *:CONTAINS THE LAST BANK 


—_ --—-- ——- -—- —. - —__ +. 


a ne ee ee rt ee ee ee ee ne en, 


MAINDE 
DIRK 


=11-DZRKH- 


‘HE .P22 


aia gmues ee sg eee 





27 (72 


ROUTINE TO 13 size" MEMS Y 


777 020000 161444 


016304 i72340 
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33410 tc 
6 O16: Bans CAL ROORE 2 CONTAINS VIRTUAL 


Ms qu Thee blot A VER TUES _AORRE RS TO PHYS 


rs 


3 3 OUT IS INHIBITED IF SW 13 IS SET. 
33470 TYPDBO: BIT 8Ski13, ISWR INHIBIT TYPEOUT? 
$2480 SNE 3 YES 
334 MOV R3,-(SP) 
33500 MOV RY) =(5P) 
33510 MOV RS; =(5P) 
33520 
33530 MOV R2,-(SP) s PUSH VA_ON STACK 
PC’ CROTLF ROTATE BITS 15,14,13 INTO 2,1,0 
33550 MOV (SP)+,R3 sFORM OFFSET TOBE USED 
33560 ASL R3 FOR KI 
37580 MOV KIPARO(R3) , RY 6 T Ite BASE PAGE ADDRESS FROM 
33600 CLR at :ROTATE LEFT 6 TIMES (MULTIPLY 
1 MOV $-6,R5 *BY 100 OCTAL) TO GET T 
$3620 18: RY : BASE SS (PHYSICAL) 
INC RS °R3 CONTAINS MSB-2 BITS 
33640 BNE i$ 
= 00 MOV R2,-(SP) ;STRIP OFF TOP 3 BITS FROM VA 8 
2590 BIC a] (SP) 657 THE HE OFFSET INSIDE TH THE PAGE 
ADD (SP)+, {FORM THE 
33710 ADC R3 : ADDRESS. Et CONTAINS LOWER 16 BITS 
33720 >R3 CONTAINS TOP 2 BITS 
30 MOV R4, SREGO : LOWER 6 BITS OF PA 
MOV R3’ SREGI :SAVE TOP 2 BITS OF PA 
MOV 8$REGO,-(SP)  ;PUSH POI TO PA ON STACK 
33760 ISR PC, a : CONVERT 18 BIT BINARY 
33770 ; ADDRESS TO OCTAL ASICZ NUMBERS ON RETURN 
33750 POI TO THE FIRST ASCIZ CHARACTERS 
33790 1S ON STACK 
33800 JSR PC, asSUPRS *TYPE OUT THE OCTAL 6 DIGIT 
33810 *PHYSICAL ADDRESS 


Sees 
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sCHKCS 
wes 33833 ing ROUTINE CHECKS IF BIT 1S OF RKCS WAS SET. IF IT WAS RETURN IS MADE TO 
4450 1 THE ERROR NESSAGE FOLLOWING THE JSP CALL. IF NOT, THE ERROR MADE TO SKIP 
445 [OVER THE ERROR - 
re 17604 00S77- 162112 940 CHKCS: TST ORKCS sBIT 1S SET? 
4464 17619 490 0 COMRET NO 
wisS O1761 933 021462 3 J PC, GTYRG YES, GET RKCS, ER, DS, DA 
#458 017618 000207 $3370 RTS PC SRETURN TO THE ERROR MESSAGE 
4458 33990; ms 
$469 :THIS ROUTINE CHECKS IF RKDA INCREMENTED CORRECTLY. IF NOT, RETURN IS MADE 
44 Mit :TO THE ERAGE SE SSORE FOLLOWING THE JSR CALL. IF YES, RETURN Ts MADE TO 
44? 34020 SKIP OVER THE ERROR MESSAGE. 
44 aoe AT THE TIME OF ENTRY, Re CONTAINS THE EXPECTED RKDA. 
4474 917620 020277 162104 CHKDA: CMP R2, IRKDA ;DID RKDA INCREMENT CORRECTLY? 
4475 foes bo146s 0 BEQ COMRET : 
47 91 01 001162 MOV R2, SREGO GET EXPCTD RKDA 
44 i763 773? «lse072 OOL1E4 $1980 MOV DRKDA, SREGL GET RKDA RECVD 
78 176 Babee : RTS PC RETURN TO THE ERROR MESSAGE 
4480 so ; CHK 
448] 1 +e ROUTINE CHECKS IF RKBA INCREMENTED CORRECTLY. IF NOT, RETURN IS MADE 
4483 341 :T0 MESSAGE FOLLOWING THE JSR CALL. IF YES, RETURN IS MADE TO 
4483 341 :SKIP OVER THE ERROR MESSAGE. 
3-24 341 3AT THE TIME OF ENTRY, R3 CONTAINS THE WORD COUNT (8 OF WORDS TRANSFERRED) 
Hes | aR 3R4 CONTAINS THE BUS ADDRESS WHERE THE TRANSFER STARTED. 
| 4a? QI7642 pODD4 34180 CHKBA: CLC 
| ques O17e4e peBs04 34300 fob ORR tone Poa, sath alee tematic, 
Se AS Ban an ed 
44ge O17654 a7? 162046 Cie RA QRKBA sO10 RKBA INCREMENT CORRECTLY? 
| dasa 01 Fees Q10437 001162 Mov AY, SREGO {GET EXPCTD_RKBA 
' wy8S 017666 000207 RTS PC SRETURN TO THE EROR MESAGE 
wee 017670 017737 162032 001164 Ey MOV IRKBA, SREG! ;GET RKBA RECVD 
| age 31300 it Ie ROUTINE CHECKS THAT RKBA OVERFL OWED AND MEX BIT WAS SETIN RKCS (BIT 4) 
| 4500 10 IF RKBA OVERFLOWED CORRECTLY, T TURN ADDRESS IS ADJUSTED TO SKIP THE 
| 4501 S120 ERROR MESSAGE ON RETURN. 
«deo 017676 Ol 1 CHKMEX: MOV —s @RKCS. (SP) sGET RKCS 
uepe 017702 Beet aaa Su3e0 BIC esas (SP) 3GET MEX BITS 4,5 
| 4505 017706 02272 c00020 70 Cie aB174, (SP)+ i CHECK of 4 set? 
' 5 
M20? DIe7i4 BOATS? O16? 34 PC, GTYRG ;SAVE RKCS,ER,DS,DA 
| 4508 017720 000207 34390 RTS PC * RETURN 
| 


> Oxf oe oe =: 


NaI 


zg i 


PARR 


OD IG’ U1 .£ Ulu 


te 


eMC td 


Pees 


C=11-DZRKH-E 


-Pil ROUTINE TO S 


161776 


161774 
161762 


000190 
021462 


To size nen 





dolies 


161742 
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l 


“yo 
85 


HUTS ROUTINE CHECKS IF BKC OVERFL OWED ¢ CORRECTLY AFTER A DATA TRONSEER 
Eo} 1o O38 Oven tHe ERAGE MESSAGE. 
CHKWC: TST BRKMC ;RKWC OVERFLOWED? 


Seyoory 
oo 
a5 3 


RTS PC ;RETURN TO THE EROR MESAGE 


RETURN ABORE 36 Is ADJUSTED TO SKIP OVER THE ERROR MESSAGE. 
3708 CHKCROY: TSTB @RKCS 4°: Ha READY SET? 
71 BMI 


J PC, GTYRG ; RKCS 
age PC faa TO FR Ee babe N MESAGE 
34750 : g00 42, (SP) sADJUST RETURN ADDRESS TO SKIP OVER MESAGE 


sue 
34520 
34530 
seep Te ROUTINE CHECKS IF R/W/S RDY BIT IN RKDS IS SET. IF IT IS NOT SET RETURN 
34560 315 MADE TO THE ERROR MESSAGE FOLLOWING THE JSR CALL. IF IT IS, THE RETURN 
31570 "ADDRESS IS ADJUSTED TO SKIP OVER THE ERROR MESSAGE ON RERTURN. 
CHKRWS: BIT BRUS jRWS ROY SET? 

3600 eta " ES 

16 J PC, GTYRG GE RKCS, ER, DS, DA 
34620 RTS PC ‘RETURN TO THE ERROR MESSAGE 
34660 tut ae CHECKS IF CONTROL READY BIT IN RKCS IS SET. IF IT IS NOT, 
seo) RE TO THE ERROR MESSAGE FOLLOWING THE JSR CALL. IF IT IS, 








BRO Pep OM eSuTINE 70 Stce 
4s4s 
weue 
weg 
4550 
4554 
4¥sSS 
SSS& 
4557 
4558 
4¥ssg 
4560 
4561 
4Sb2 
4553 
4S64 
4¥SES 
4566 
4567 
WEES 
4570 
4571 
4573 020014 ot seat 
4574 O2e0020 ee nates 
4575 O2000% 052637 O0ee2l2 
4576 020030 O0042e4 
4578 O2e0032 012737 140000 
4579 G20040 veradane 
4581 Oe0042 011037 OOe2le 
a {oa200 
os aes fee 
4586 ceo bio 002212 
wees 020076 pecris tates 
yeas BepliG p1a7a7 BoeEiS 
4533 020116 000207 


e7( 


MEM 


002212 


Saaremaa 
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Pls Suite KEEPS A HISTORY rs THE COOMANDS 


Ou Te BLL, PRGA COnTaINe Te Sen [ON 8 
sed eat ie 


Toe cere eeu 
ay THe Paes CORED 


NES Bic See MRLs 


O-2 OF ’PRSCMND’ AND BI 


Sey ENTERED WHEN A DRIVE RESET ES BEING INITIATED. ORIVE # IS SAVED 


;CRCMND - ENTERED WHEN A CONTROL RESET IS BEING INITIATED. BIT 14 OF 
;’PRSCMND’ IS SET. 


;POSCMND - ENTERED WHEN A POSITIONING SEEK IS BEING INITIATED. BITS 0-2 
;CONTAIN THE DRIVE NUMBER ON WHICH THE POSITIONING SEEK WAS DONE. ALSO 


BIT 7 IS SET. 


;IN ALL ABOVE CASES BIT 1S OF ’PRSCMND’ IS SET. 


;FNCMND - ENTE 
NITIATED (EX: 


WEN B GOMER OTHER THAN ANY ONE OF THE ABOVE IS SEING 


RED 
READ, WRITE, ETC). 


se 
>THE OFFSET TO THE RaenERD KEY (BASESKEY) IS SAVED IN BITS O-3 OF *PSRCMND’. 
THAT CONTENTS OF *PRSFNC’ PUSHED INTO ’PSTFNC’ 
SAND GAVED, “BEFORE” 


PUTTING INFO ABOUT THE PRE COMMAND IN ’PRSFNC’. 


;RO CONTAINS ADDRESS OF THE COMMAND KEY, AT THE TIME OF ENTRY. 


DRCMND: 


CRCMND: 


POSCMND : 


ER 
FNCMND: CLR 
Pl: MOV 

SUB 


Pe: MOV 
MOV 


sory ES+OL18, QFNC 
~(SP ;SAVE ORIVE 8 


#81T1S+B81T14, FNC 
Pe 


MOV (RO) , QFNC 


#177770, QFNC’ :GET DRIVE NO. 
agiTiSeBlt7, QFNC 


QFNC 
RO,-(SP) 


aKEY, (SP) 
(SP)4, QFNC 


PRSFNC, PSTFNC 
ENC, PRSFNC 
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fe 


8 


FR SLHEFESS 


g 8 


a8 2 


SRS 


2 


ee 


RB 


~ 
Oo 
-_ 


po hee bs 0-3 Bo HH fo pe 
bs 

Ze 

oO 


R BR BB 


ai 


; 


9 
S 
o 


d 


———= op 


SESE SE PAH AMAA TAMAS LAS Aaa eae Aaa aaa 

















ABOUT T 
THE RK A THE OF ERROR AND THE F 
ORMED Just BEFORE FUNCTION (WHICH LED 
HIS ROUTINE IS CALLED WHEN AN ERROR OCCURS 
R1,-(5P) 
SPRSFNC, RO 
, MHI 
MHS 
(ROD 
3. sRer, READ CHECK, WRITE, WRITE CHECK, SEEK 
2s sPOSITIONING (SEEK) 
aBIT14, (RO) 
1 sCONTROL RESET 
65S 3; TYPE ASCIZ STRING 
bug :GET OVER THE ASCIZ 
/ORESET ON DRV / 
7$ 
67S TYPE ASCIZ STRING 
b6$ *:GET OVER THE ASCIZ 
/CRESET/ 
4g 
69S TYPE ASCIZ STRING 
68s GET OVER te ASCIZ 
/POSITICNING DRIVE 7 
(RO). -(SP) 
#177770, (SP) | ;TYPE DRIVE NO. 
eet ‘ 
(RO) RI 
PCMNO(R1),R1  ;GO TYPE OUT THE FUNCTION 
(R BY “BEING PERFORMED 
7\§ ;;TYPE ASCIZ STRING 
208 *3GET OVER THE ASCIZ 
15> «12> /DAe/ 
(RL), -(SP) sTYPE OUT DISK ADDRESS 


73S TYPE ASCIZ STRING 
25 *:GET OVER THE ASCIZ 
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50 -:73$: .ASCIZ / Bh=/ 

465 32s: 
016146 000006 35690 MOV 6(R1),-(SP) 
104401 357 TYPOC 
4654 256 104400 020364 TYPE 75$ :; TYPE ASCIZ STRING 
4655 Oe0sbe O00403 BR dug ::GET OVER THE ASCIZ 
HbB -:75$: .ASCIZ / WC=/ 
020372 54g: 
4658 020372 016146 OO00004 357 MOV 4(R1),-(SP) 
e593 020376 104401 357 TYPOC 
bbl 020400 020027 002164 4g CMP RO, #PSTFNC 
O20404 001410 35760 BEQ S$ 

4663 O20406 005720 35770 TST (RO)+ 
4654 De0410 104400 920440 35780 TYPE MHI 

- Se tte SSpae4 ae TYPE ” MH2 
uee? pepasq iene 35810 BR 6$ 

aS pss at aoe een SO . 
uev0 bop 61600 seeag ra, 
4671 020436 35850 RTS 
Here O20440 005015 041516 35860 MHI: .ASCIZ <15><12>/FUNCTION / 
4673 Oe0446 O44524 047117 O00040 
4674 OeO4S4 O42440 OS1l22 OS1117 35870 MHe:  #<ASCIZ / ERROR / 
4675 Oe0462 O00040 
4676 O20464 052101 35880 MH3:  ##.ASCIZ /AT/ 
4677 O20467 120 o44S22 051117 35890 MH4 "ASCIZ /PRIOR TO/ 
4678 920474 oS2e040 000117 


é§ 33 





see ehh ene 


El cbstaees 2 


Pttatatatatatatal 
SEIERLSVG 
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ROUTINE 


JUSUUe 
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MAC 
TO 


000004 
000004 
161164 


161160 


JUUUUE 


002432 
002434 


002472 


002474 


Y1l 
0 Size 
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se 


Datasets 


Roe 
SEUSESBSSSSSNSS 


fs 


Sea 


aes 


sSTATSTC. 


TIME 
t 10 BE OBTAINED. 
+ COMMAND EXECUTED 


OF ENTRY R1 CONTAINS nae DRIVE 


ae 


Sieg ie ates 
Ive ER CONTAINS 5 te FUNCTION ¢ 


WRITE, READ, ETC) FOR WHICH STATISTICS ARE TO BE 


statste: :MOV 
MOV 


1§: ADD 


4§: 


6S: 


R3,-(SP) 


Blpzenaz 
& R 
2 


RO, NWRTL(R2) 
NURTH(RE) 


RO, NROL (Re) 


NRDH(Re) 


(SP)+,R3 
(SP)+, Re 
(SP)+, RO 


;PUSH RO, Re, R3 ONTO THE 


; STACK 

DRIVE 0? 

; FORM THE OFFSET FOR THE 

i "WORDS XFERRED COUNTS’- 
;NWRTL, NROL 

;GET WORD COUNT (RKWC) FROM 
THE PARAMETER TABLE 


;ANY ERROR DURING THE XFER? 


; YES, 
:GET’ THE # OF WORDS THA 
: WERE ACTUALLY XCPERRED 


;WRITE FUNCTION? 


ADD THE y OF WORDS 
XEERREDY (UR 
ts is HE IBRO COUNT LO, HI 


;ADD_THE # OF WORDS 
SNOTE THAT WRT CHK, 
7RE CHK ARE ALSO" CONS- 
SIDERED TO BE "READ? 
SCARRY OVER TO THE HI WORD 


;POP R3,R2,RO FROM THE STACK 
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PSTAT 
ROUTINE REPORTS ERROR STATISTICS AND DATA-TRANSFER STATISTICS. 


Popes: 


gE fou ie 9 cocssaets GEES Beare Fare 


j ahs 208 a 


f foro 
— $$ p< 
Oo 

—- 


4 
oO~F &- Oe Sees a) 
— 
o 


8 
8 











PC, TIMTYP ; TYPE CURRENT TIME 


BLNKS1 
ESECN(R2) , -(SP) 

BLNKS 
WEECNTR), -(SP) 


BLNKS1 
BATER(R2),-(SP) 
#100000,(SP)  ;DONT TYPE A NEGATIVE NO. 


HECN(RS) , -(SP) 


BLNKS1 
SKECN(R2) , -(SP) 









MSINDEC-11-DZRKH-E 
DZRKHE 


Pll 

wo 021024 104404 
4 

A oe ee 
wee 021036 104404 
ve Bi fies 
pie eins 104404 
a Be pe 
re Bias fee 
4794 021064 000207 


MACY11 €7(732) 
ROUTINE TO SIZE 


bozaze 


003456 
O0e32e 


001213 
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4 sSTAT 
4 % oa t PHTeCROUTINE IS NORMALLY ENTERED WHEN THE PROGRAM IS WAITING FOR THE 
4797 37110  ;CONT R TO FINISH WHAT IT IS DOING. THERE ARE TWO DOUBLE PRECISION 
4 $7120 s COUNTS KEPT IN THIS ROUTINE. 
4 71 *CICNT, CICNTL 
4800 $7140 :THIS COUNT KEEPS TRACK OF HOW LONG THE CONTROLLER. HAS iarcies ie 
480 71 =A COMMAND WAS INITIATED. THE CONTROLLER SHOULD INISH | WHATEVER IT IS DOING 
4 37160 ;BEFORE THIS COUNT EXPIRES. IF IT DOES NOT, THERE IS AN ERROR CONDITION AND 
4803 37170 sili IS SO REPORTED. 
71 

NBDE 3ba0 INITIAL RY TI ARE 
4 ve is REMENTED EVERY ttre. This pourine 18 S ENT aCe TE BCCOMMEINGSS 
’ sep REPORTED. T 1S N KEP REST MARILY EY 00, NOT AN Naat Ste PROERAN 
aBi0 720 fa NOT GET Tals count IN AN NBEF INTTE LOOP, BECAUSE OF AN ERROR CONDITION. 
4 ie 52! 37260 STATUS: CLR -(SP) sDROP PRIORITY AND WAIT FOR INT 
Het 021070 Ole7H6 021076 $7270 HOV #15,-(SP) RETURN FOR RTI 
48] 7290 INTERRUPTS ARE ALLOWED ONLY 
ae fit iY ARE nei eatin tay 
4818 7320 OTHER PLACES WHERE INTERRUPTS ARE ALLOWED 
4819 37330 TO TAKE PLACE: 
4820 37340 >? CHRAFN? FIRST INTERRUPT AFTER ISSUING 
4821 37350 A SEEK FUNCTION 
Same oo 86 ee 
4825 O21104 105777 160612 37390 TSTB = ARKCS 
4826 021110 100514 37400 BMI CNOBSY 

02111 CICNT 
i829 petite peeose 177761 002170 330 MOV #-17,CICNT1 
4831 021124 105737 002234 s750 CBSY: TSTB  INTFLG FOR A NON-SEEK COMAND: 
yp32 374 *INTFLG- BIT 7 IS SET, BITS O-3 CONTAIN 
4833 37470 ‘OFFSET TO THE COMMAND KEY (FROM KEY), 
4834 37480 FOR WHICH THIS INTERUPT IS EXPCTD. 
4835 37490 ‘WHEN THE INTERUPT OCCURS & INTHND’ IS 
4836 $7500 ENTERED ’INTFLG’. IS CLEARED. 
4837 7510 
4838 
uaa0 
Hou 37550 BNE 
4Ba3 75 sTIMED OUT WHILE WAITING FOR THE INTRUPT. 
4844 oec5 "ONE OF THE COMMANDS DID NOT INTERRUPT 
4B4S 021146 113700 002234 37590 NIEROR: MOVB INTFLG,RO 
weve 021152 042700 177760 $76 BIC #177760, RO 
uous Geiiee Deere 37e2 BoD RO, F 
4849 021164 011037 376 MOV (RO) ’ SREGY 
4850 021170 042737 #177770, SREGH 
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ROUTINE ro S 

ne 021176 013737 001172 001750 7 MOV SREG4, SRORV ;GET DRIVE #, FOR TYPING SERIAL # 
4 021204 104420 002747 76 TYPMSG ,MSGIS sPRINT 'DRVE # DIDN’T INTRUPT AFTER’ 
4854 621219 01630S 002532 37680 Nov BCHND(RS) , RS 

51539 Bo? 37 1 ISR BCR PTPEN 

D2el224 904 021462 37710 JSR PC, GTYRG 
4 021230 104025 37720 ERROR 25 ; COMMAND TYPED OUT IN EROR MESAGE DID 
, 1232 052710 104000 BIS #81T1S+B1T11, croi” nN ER DICATE THAT FUNCTION IS ABORTED 
4861 os isse Ooo444 BR SEXIT 
WEES ae 
4EB4 g21240 pose 902160 37780 QEROR: CLR QSCNT ;REESTABLISH COUNT 
4B6S 021044 O04 1462 37790 ISR PC, GTYRG 
4866 021250 104026 37800 ~ ERROR 26 ;ALL 8 COMMANDS SHOULD BE DONE BY NOW, TIMED 
4867 37810 OUT. THE IS WAITING FOR ONE OF THE 
4868 37820 ;COMMANDS IN THE @ TO BE FINISHED AND THIS 
4859 37830 :DID NOT HAPPEN OR FOR SOME OTHER REASON THE 
4870 AINE FLAG (BIT 15) OF ONE OF THE 8 
4871 NOT SET. VARIOUS FLAGS ’POS’(- 
ugre 37860 :*BUSY’(-7), *KEY’(-8) CONTAIN INFORMATION 
4873 37870 ;ABOUT THE STATUS OF THE SYSTEM. 
4875 021252 032777 O20000 157660 37890 BIT #SW13, ISWR s INHIBIT TYPEOUT? 
4876 Oel260 001024 37900 BNE 2s YES 
4877 Oelzbe io4400 003007 37910 TYPE,  MSG16 
4878 0212665 O01 002006 37920 MOV #KEY, RO 
4 be127e o12701 002126 37930 nov WoL’ Rl 
uBat 51578 ttn ES oacp 1S: TYPE F 
4882 21 308 O12046 37960 NOV tRO)+,-(SP) sTYPE OUT CONTENTS OF ALL KEYS 
4g84 p5t3io 1Buod 003454 cata TYPE  ,BLNKS3 : 
yess 021316 O0S046 37990 CLR (SP) 
48986 021320 112116 38000 MOVB.  (R1)4, \ or) sTYPE OUT CONTENTS OF ALL BUSY FLAGS 
4887 21322 104402 38010 TYPOS : BUSY-BUSY7 
yess 021324 003 38020 BYTE 3 
4889 021326 000 38030 Byte 0. lead 
463 o51358 ries sehcp BNE 1$ :NO 
4893 021332 004737 01S4S4 agi 2s: JSR PC, CLRERR ;MAKE SURE THERE IS NO HEAD MOVEMENT ON 
4894 ANY DRIVE 8 THEN DO CONTROL 
4B9S 021336 000137 010352 $8090 IMP BEGNEX :G0, AND CONTINUE 
WBS 021342 005004 38110 CNOBSY: CLR RY 
4e98 021344 005204 38120 INC RY 
4899 O21 346 001376 38130 BNE .-2 
4900 021350 Ot 746 017% 381490 SEXIT: MOV PPRLVL,-(SP) : 
4901 021354 Boe 1362 38150 MOV WRTIPC?,-(SP)  ;RETURN FOR RTI *eexexHEREE 
4302 021360 oo00002 38160 RTI 
4904 021362 000137 010372 38180 RTIPC7: JMP QMNGER 






ST ee eee ee 
; 
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DZRKHE.P11 
3 
4 
4309 

1 1 
491 Be1304 
24 Bigs 
4914 021404 

1 1410 
491 1414 
491 1416 
a8 Biss 
28 Biss 
4921 021434 
4922 021440 
4923 ASiuue 
4924 021446 
4$eS Oel4Se 
4 021454 
4 021460 





38 
2 


Bis 
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: TYPFN 
SROUTINE 19 TYPE OUT THe “EUNCTION, (READ, WRITE, ETC) sR4 CONTAINS THE 
:SW 13, IF ope INHIETTS WepeouT” ’ 


TYPFN: git gpas,oae ; INHIBIT TYPEOUT? 


CMP sR, #2 : WRITE? 
NE 1$ 
YPE MSG6 
1S: chp 4 RY ;READ? 
2s 
TYPE  ,MSG7 
2s: CMP ile, R READ CHECK? 
Pee MSG9 
38: CMP GRY SWRITE CHECK? 
BNE 4g 


; SEEK? 











M3INDEC-11-DZRKH-E 
OZRKHE.P11 


ESR UNO 


uy 


DORNER TOON 


$2 B= b= 


FOO FOFUFUFO FOTO FOFUIU FOFOFUFOFUTUOFUFOFDFOFUrOrOrG 
ors 


b-= 0 = b= b= 0 b= 6 > b= = hb ho hb Be ha heh) pepe 


oo 





gee 
dee 


021470 


001200 
160172 


177760 


177776 


177400 


177770 


MACY11 &7(722) 
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tT RoNTENTS OF RKCS, RKER, RKDS, RKDAA 


Take; Mov Seana’ Snes 
MOV @RKER, SREG1 
MOV JRKDS, SREG2 
RTS PC 


;GETINF 
;THIS ROUTINE GETS CONTENTS OF RKCE, RKER, R 
5CON ENTS OF RKDA INTO Es COMPONENT: CYLIND 
; MBER. 


GETINF: JSR PC, GT3RG 
ih V (SP) 






IT _ BREAK 
» SURFAC 
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4970 70 =; CROTLF 

497 :CALL: MOV NO, -(SP) sPUSH NO. TO BE ROTATED ON STACK 

48° : 138 pc tRoTLe 

4 :THIS ROUTINE ROTATES BITS 15. 14, 13 OF A WORD INTO BITS 2, 1, O. THE 

ue SREST OF THE BITS OF THE ROTATED WORD ARE CLEARED. 

4 

pp CROTLF: BIC 817777, 2(SP) 

1278 38 cLé ” 

4 ROL 2(SP) ? 

= a 20 

Gage 33390 + OSLepy 

4983 RTS PC 

4984 

$985 

4 55E RGYSORV 

4987 3904 ; CALL: i PC ,RGYSORV 

138 : THI Ne GETS’ THE CONTENTS OF RKDS, RKER, RKCS, RKDA. THEN 
seer DRIVE MUMBER FROM RKDA IN’ ’SRORV’. 

43 O21652 004737 D21462 RGYSOR: JSR PC, GT4RG ;GET RKCS, ER, DS, DA 

4335 is TSDRV 

$3 33 tne im PC, GTSDRV 

4995 39120  ;THIS ROUTINE EXTRACTS THE DRIVE # FROM RKDA (BITS 15,14,13) AND SAVES 

39% al IT IN “SRORV” (BITS 0,1,2) 

4840 921656 D17746 160046 aigg GTSDRV: MOV IRKDA, -( SP) GET BITS 15,14,13 FROM RKDA 

4999 O35} 004737 621620 39160 Sr PC LF 

5000 Ocls&& 912637 001750 33170 ‘OV ;SAVE THE DRIVE 8 

6001 Oei&72 000297 39180 
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DZRKHE.P1l DRY. RESET IVE RESET ROUTINE 
LDR RESET - eau ite RESET ROUTINE 
Teak 1 ;DRV. RESE NoF seth TINE 
20 IF R/W/ ROY rls NOT SET WITHIN A CERTAIN TIME OF DOING DRIVE RESET 
AN ERR 
at 90503? 022004 DR. RST: cL rut 

03 1708 ale Naat {E5986 HOY oy #15, 3RKCS 
ay feirie Bse773 000100 is7772 33585 1$: Bir #100, 3RKDS :D10 R/W/S RDY SET? 
BH 17, 12746 177760 33 af MOV 8-20, -(SP) NO, WAIT FOR R/W/S 

14 el 216 INC SP) 
Bie O81 >; POE tsb 
EtG 1 022004 $33c9 INC TIMOUT 
2018 021744 33360 BNE 1$ 
sie) isis e7 020000 157164 BIT $5413, SHR s INNIBIT TYPEQUT? 

1 175 , 0012} 3590 ite Yond sTIMED OUT, ows ROY DID NOT SET 
aose O51 7ee Ibva00 10 $aai0 TYPE  ‘MSGle “eos 
e024 Oe! 116M 33420 MOV 

O21774 1 be? 1b oosoc2 334 : 

eres PectOe iBooss 35uc0 25: RTI 
5028 o22004 900009 39460  TIMOUT: O 


a ee ee ee og rr > ee, Se CE 


Boake. Pid 


ARETE & 
cas ETE 


a 2 


11-DZRKH-E 


RACY AL Fa Bese daar 13:36 PAGE lel 


CON.RESET - © 


== 
iG 





157064 








33490 seTTL CON.RESET - CONTROL RESET ROUTINE 
CON. RE 
:CONTROL RESET ROUTINE 
sCON, BOY READY ROUTINE 
CN.RST: MOV st aRKCS 
TB = ARKCS :D10 CONTROL RDY SET? 
MOV $-30,-(SP) WAIT FOR CNTRL RDY 


, OSWR ; INHIBIT TYPEOUT? 


sear aa 
oe | 





TYPE “MSG12 ICNTRL RDY DID NOT SET, REPORT ERROR 
MOV isp) -(Sp) 
SUB #2, (SP) 
TYPE” 65S TYPE ASCIZ STRING 
BR 645 *:GET OVER THE ASCIZ 
iigss: -ASCIZ <15><12>/CONTROLLER NOT READY - RKCS=/ 
10 "Mov ORKCS, -(SP) 
$7 TYPOC 





quuanmeennnnas 22 









E10 
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Pil TYPMSG - TYPE MESSAGE ROUTINE (SW13) 


39750 .SBTTL TYPMSG - TYPE MESSAGE POLITINE (cu!) 
33770 sTHIS ROUTINE IS USED FOR MESSAGE TYPEOUTS. IF SW 13 IS SET THE TYPEOUT 
215 IPPED. ; 
3300 eae’ POINTER sPOINTER TO THE ASCII MESSAGE STRING 
1 o200°0 156760 TY.MSG: BIT 13, aSWR s INHIBIT TYPEOUT? 
Beste5 Beiaos 33650 BNE 
ata Tee 000000 022172 es) HOW a(SP), 1 GET POINTER TO ASCII STRING 
1 $3860 1S: .WORD 0 
022174 062716 000002 39880 2: ADD #2, (SP) sADJUST RETURN ADDRESS TO SKIP OVER POINTER 
dee200 o0d00e2 39890 RTI 

















MAINDEC-11-DZRKH-E 
DZRKHE .P 


Bepnaeees 


ERE 


A 
° 


UNUTUNUTU Un 
0+ b—2 bs ban Ons pe Fae fae 
QKRRZBRES 


ess : 


€ 
6 
& 
6 
6 
1 


os 








000001 


MACYL1 E7( 
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URWSRVE = KWLIL CLOCK SERVICE ROUTINE 


iy 
[ = ] 


REOSSSSSSS 
SBSE8S88 


Risisiete 
S885 





1 


1S: ihe 
RTI 
2s: MOV 
INC 
BNE 
MOV 
INC 
33: ” RTI 
sWATIME 
*ROUTINE PRO 
WATIME: CLR 
1S: MOV 
MOV 
MOV 
MOV 
ADD 
BNE 
CLR 
RTS 


NTERRUP 


§ ROUTI ine “SERVICES 7 THE INT! 
has wcONTAING CYCLES (PER SE 


KAREN Cowra Ne AT 


"S COMPLEMENT) 


SSVERFLOMED? 


SOT 60 CPS COUNT 


: L 
; RETURN 


;RESET afaice COUNT 
MINUTES 


eer “M NUTES™ COUNT 
QUNT HOURS 


chen 


ITING TIME. 


K SERVICE ROUTINE 
T FROM THE KW11L LINE CLOCK 


COND) (2°S COMPLEMENT) 
NENT) 


;WASTE SOME TIME 


DORKHE mel KWSRVE - 


5108 


ae 


(Ur ODED MUTE eit 
= 
oe 


° 
8 


iS 


ne 


UTUTUN UN UI UIUNIUIUUUnUnuies 
0 0 0-2 0-2 b= po B= 0-0 be fue bee fe Pe b= po 


R 


MACY11 
KWI1L 


8 
} & = 
-OoO <£ 


o 
8 


& 


4 


7 (732 
LOCK 


sqoonbr<rinil mm 
8 ae PUNE Bete RERE RE NONE PRESENT. 8 REGEAGE is PRINTED OUT. 
031 


40270 

4 STACK POINTER IS fe int teteD 
4 *TO THE END OF PASS ROU 

40320 ;TIME IS KILLED CAATINED "Fare: 5 
29330 *(END OF PASS #X) TO A SMALL 

4 CHDPRS: TST DRVPRS 

4oaE0 geo SOC 

W980 1s AYRE Fasc y 

dp380 : ISR PC WATIME 

4o4 MOV STACK, SP 

Hou BR SEOP 

wt 





sANY DRIVES PRESENT? 


YES, EXIT 
iN "GIVE A hh SAGE 


Payee Pass. ROUTINE 





To. 4100 eh CONTROL IS TRANSFERRED 
SING CONTROL TO $EOP 
sis pone is KEEP THE NUMBER OF SESshces 


END OF PASS ROU 


D— b-< b-- & = b= & 2 & = 0+ 6 = & = pp pe 


oe 





eS 


oe 
; 


Oo 
bs 


Ss 


: 


GSH VFHESO-“SLBIKRELRHLEBSVERY ¢ 


CUTOUT UT UT UU UT UOT UT UOT UT UT UT UT TUT UTI UT) 5 


b= O 2b +b b- 4 pO B= F=f 2 Bo be 
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-SBTTL END OF PASS ROUTINE 
55 ESE AEA AE EAE HES AEE EAR HE RHEE EEE EERE EERE ERE SERS E ESLER EEE OE 
;#INCREMENT THE PASS NUMBER ( ) 

; *INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

;#IF THERES A MONITOR GO TO J 
;#IF THERE ISN’T JUMP TO QMNGE 


SEOP: 


J 
SRTNAD: .WORD 












i Teche ie Pee vere 
HDOWT ALLOW A Nee NUMBER 


33 YES 
;;RESTORE COUNTER 


;;GET MONITOR ADDRESS 
;;BRANCH IF NO MONITOR 
;;CLEAR THE WORLD 

;;G0 TO MONITOR 

3 ROOM 











3 
t 
boa 
bf 
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TTY INPUT ROUTINE 





153 .SBTTL TTY INPUT ROUTINE 
155 : ORT yee sneer: maar manepien pe omeennat ig FOS ee NS 
ci8e SAEOFTWARE SWITCH REGISTER CHANGE ROUTINE, 
5160 S#ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
eis EEN Sere In TY Tee ere SAT TGH FRERISTER TRAP CALL 
163 000176 001140 $CKSWR: CMP g, 31S THE -SWR SELECTED? 
Figs hated arte BNE + Ranch FF No 
165 Oce%22 105777 156516 TSTB © aSTKS :CHAR THERE? 
ot eS Te iee TOE usesi2 eae (sp) deve he aan eT AROUND 
5168 022434 O42716 177600 BIC #10177, (SP) ::STRIP-OFF THE ASCII 
168 Geewg bares CMP 87, (SP3+ 3:1S ITA 
1 1062 BNE 1s$ ::NO, RETURN TO USER 
171 Oe2446 123727 001134 000001 CMPB §AUTOB, #1 ARE WE RUNNING IN AUTO-MODE? 
17e 022454 001456 BEQ 15S ;;BRANCH IF YES 
174 De2use 104400 023137 TYPE  ,SCNTLG ssECHO THE CONTROL-G (¢G) 
em Gee ture bin SSR: Or aMetsp) Hue Sete"Poe Het 
Si 1 TYPOC ‘ 3:60 =-OCTAL ASCII(ALL DIGITS) 
5178 BSSy9q tes 023155 aa TYPE SHNEH jSPROMET FOR NEW SWR 
022500 OOSO46 3 ~ 33 
ei? teed GR, astKe + OT 
181 O22504 1 156434 7S: TSTB © aSTKS :CHAR THERE? 
e182 022510 100375 BPL 7§ ::IF NOT TRY AGAIN 
5184 022512 11774 156430 MOVB a$TKB,-(SP) ;;PICK UP CHAR 
b18S 022516 O4e716 1 BIC #177, (SP) ::MAKE IT 7-BIT ASCII 
5187 
5189 
B9 D225 000025 9S: CMP (SP), #25 IS IT A CONTROL-U? 
2183 NS Be DE B51 Bas BNE 18s $B acH IF NOT 
2131 022530 104400 023132 baa TYPE ScuTLu isYES ECHO CONTROL -U (tu) 
ate BSSeid "BR 19¢ >:LET’S TRY I ObRAIN - 
5195 
2136 ge2sye 02 1627 000015 10S: CMP (SP), #15 s3IS IT A_<CR>? 
1 D1 BNE 16$ 33 
5198 000004 ist 4($P) >: YES is IT THE FIRST CHAR? 
Ness) ee 
2433 ass Biker? poooge 156354 at $185), aur He NEW 
25n3 1 121 tt a ai ELE RD AND CLE 
et , 4 ee 
255 pesern 1 rite 000001 CHS SINTAG, #1 H RE ENaGhe TTY KBD INTERRUPTS? 
NPL fic - ; ;BRANCH 
2552 Debt ierzad 000100 156332 i HOV 4100, 9STKS i FRETENABLE WY KBD INTERRUPTS 
eens eo eee Sep 14 ithe o2404e2 . 165: JSR PC, STYPEC *:ECHO C 
S208 Oeebe0 Oelbe7 000060 CMP (SP), #60 *:CHAR < 0? 









OZRKHE Pil 
Oeeb24 





corenmaaumeerer onan 
i 





s 





K 





R 





. 
az 





023014 
02301 
G2 


STARTS TLIO 
ise 


i ntdenetanetiainennnntioiinns 


002420 
021627 


} 001403 
1 
1 
16 


O0Seb6 
OS6616 
000707 
104400 
000720 
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Y INPUT ROUTINE 


BLT 18$ ;BRANCH IF YES 
i Bo ies 
(SP)+ ::STR F ASCII 

ele 2(SP) 3315 Tui THE FIRST CHAR 

BEQ 173 $3 F 

fn (SP) 33NO, SHIFT 

ASL (SP) 33; CHAR TO MAKE 

ASL (SP) s; _ ROOM NEW ONE 
17S: INC 2(SP) 2 :KEEP C OF CHAR 

BIS =2(SP), (SP) ::SET IN NEW CHAR 

BR 7§ GET NEXT 
18$: TYPE SQUES +: TYPE ?<CR><LFD 

BR 20$ SIMULATE CONTROL-U 
.DSABL LSB 


3 JUHI HEHHE HEHEHE HHEE HEE EEE EEE 
jATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


=i RDCHR ;; INPUT A SINGLE CHARACTER FROM THE TTY 
2% RETURN HERE >;CHARACTER IS ON THE STACK 
2 >;WITH PARITY BIT STRIPPED OFF 
b 
SRDCHR: MOV (SP). -(SP) ;;PUSH DOWN THE PC 
MOV 4(SP} ,2(SP) 2:SAVE THE PS 
1$ TSTB © aSTKS >:WAIT FOR 
BPL 1$ 338 
MOVB  d$TKB,4(SP) >:READ THE 
BIC #1C<177> .4(SP) 3:GET RID OF JUNK IF ANY 
CMP 4(SP), #23 :IS IT A CONTROL-S? 
BNE 3$ ss IF NO 
2s: TSTB  aSTKS *:WAIT FOR A TER 
BPL es sek UNTIL ITS THERE 
eee ey top) SERAKE TT FOBT ASCII 
Bis teste. bol 2315 aa A CONTROL-@? 
BNE o +: IF NOT DISCARD IT 
3S: CMP 4(SP), #140 2215 fT CASE? 
BLT 4§ 33 IF YES 
CMP 4(SP), #175 31S IT A SPECIAL CHAR? 
BGT 4§ ;;BRANCH_IF YE 
BIC #40, 4(SP) > > MAKE i UPPER CASE 


WS: sconnsssnesusuecuseusssnesesadberesssoussatttaaseneneennneeees 
jATHIS ROUTINE WILL INPUT A STRING FROM THE TTY 


*% | ROLIN 3; INPUT A STRING FROM THE TTY 

# RETURN HERE *:ADDRESS OF FIRST CHARACTER WILL BE 
+ >; TERMINATOR WILL BE A BYTE OF ALL O’ 
SROLIN: MOV R3,-(SP) ;;SAVE_R3 


1$: MOV ustty NLR *:GET ADDRESS 
es: aSTTY 


CMP N¢8.,R3 BUFFER FULL? 





on THE STAC 












DzRKHE 





HOHE PSHE SRSA BAMA CU 


SSRSSS SSNS 


Obs NN Soro 


8 


C-11-D 
-Pll 


023030 
cis 


ee 
Bes 


ees 


fo 
= 


tate] 


dese 


eee 


O ies 


B 
é 


ZRKH-E MACY £7(722) 
TTY INPUT ROUTINE 


E 


9$: 


STTYIN: . 
SCNTLU: . 
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;;6R IF YES 
$360 PERG oe CHARACTER FROM THE TTY 


;; CHECK FOR RETURN 
;;LOOP_IF NOT RETURN 
;;CLEAR RETURN (THE 15) 
3; YPE A LINE FEED 


38 ORE 

ssADJUST THE STACK AND PUT ADDRESS OF THE 
$8 FIRST ASCII CHARACTER ON IT 

; ;RETURN 

;;STORAGE FOR ASCII CHAR. TO TYPE 


;; TERMINATOR 
;;RESERVE 8 BYTES FOR TTY INPUT 
3;;CONTROL “U" 









en ee ee ~ 


MAINDEC-11-DZRK 
Pll 


Scie iia ete vit 


rAtAtA: 
=e 
wre 


SORRNUSMMNE SEAS 


"READ an Oct 


-OO0O000 
—— -“ 


- 
[=] 
= 


— 


B= 
— 
<= 
—— 


sa 


ae 
nha 


ae 


E 


177770 


000012 
023266 


Y11 27(722) 
AL NUMBER 


FROM T 


TTY 
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10 





-SBTTL READ AN OCTAL NUMBER FROM THE TTY 
5p RERHRRREEEAEREA REELS EEA EEE REE EE EE EEE EERE RES ERLE EERE REESE EEE ES 


:#CHANGE I 

*CALL: 

3% T 

i RETURN HERE 

a 

SRDOCT: MOV (SP), -(SP) 
AM 4(SP) 2°SP) 
MOV RO, -(SP) 
MOV R1,-(SP) 
MOV Re, -(5P) 

1S: ROLIN 
MOV (SP)+,RO 
CLR Ri 
CLR Re 

2s: MOVB = (RO)+,-(SP) 
BEQ 3$ 
ASL Ri 
ROL ge 
ASL Ri 
ROL Be 
ASL RI 
ROL Ro 
BIC #07, (SP) 
ADD (SP)4,R1 
mR 23 

3S: TST (SP)+ 
MOV R1, 12(SP) 
MOV Re: SHIOCT 
MOV (SP)+, Re 
MOV (SP)+)RI 
MOV (SP)+)RO 
RTI 

SHIOCT: .WORD O 





;;READ AN OCTAL 
;;LOW ORDER B 


33H 


GH ORDER 


HETReUT fue 





¥THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
T TO BINARY. 


NUMBER 
ARE ON TOP OF THE STACK 
S ARE IN SHIOCT 


OR THE 


SS OF 1ST CHARACTER 
Dara 


WORD 
CKUP THIS _—— 


33STRIP THE ASCII JUNK 
;;ADD_IN THIS DIGIT 


PECLEAN TERMINATOR FROM STACK 


;;SAVE THE RESULT 


;;POP STACK INTO Re 
;3POP STACK INTO R1 


;;POP STACK INTO RO 


; ;RETURN 
;;HIGH ORDER BITS GO HERE 











MAINDEC-11-DZRK 
DZRKHE Pil 


< 


ESSE ERRAR AAs iic aa asiddirignuiee eee eee ed acre iatsts 


w 
& 


nae 


& 


eee eed oe ee ae 


aah 


= = 

= eS 
== 

- 

wo 


Bs 
=-oO 


BE 


8-8 
<= 
2 


— 


~ 
g 
— 


Re 


oN 


8 
y 


oOo 
ee 
— 
o 


Ben REE 


== Ome 
NY apet eat tat ot, 


MACY11 &7(73 
READ A DECIMAL NUMBE 


oocoo4 900002 


000071 
170000 


o0001e 
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F THE TTY 


-SBTTL READ A DECIMAL NUMBER FROM THE TTY 
35 SESE SEES ESE ESE SE ESE EEE EERE EEE EE EEE EEE EEE 


WILL READ A DECIMAL ( ) R FROM THE TTY AND 
1G blimey, "100 nen, Caaenc ene OF a, ILLEGAL Coc TERS 
COMPLETE MUST BE RET EER THE YRput * TERMINA Bey THE 
TYPING A CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER IS 
IVE 32767 TO NEGATIVE 32768. 
C ;;READ A DECIMAL NUMBER 
RETURN HERE ::NUMBER IS ON TOP OF THE STACK 
(SP), -(SP) ;;PROVIDE SPACE FOR 
4(SP§} 2(SP) THE INPUT NUMBER 
RO, -(SP) ;;PUSH RO ON STACK 
R1;-(SP) PUSH R1 ON STACK 
ReiSr) Hs Real rhe 
(SP)+,RO + AboRESe hata CHAR. 
RO,6$ ::SAVE INCASE OF BAD INPUT 
~(SP) >;CLEAR DATA WORD 
Re 3;SIGN SET POSITIVE 
#’-, (RO) +: SEE IF A MINUS SIGN WAS TYPED 
2s ::BR IF NO MINUS SIGN 
(RO)+,R2 >:SAVE FOR LATER USE 
(RO)+°R1 ::PICKUP THIS CHARACTER 
3$ *:GET OUT IF ZERO 
#’0,R1 5 MAKE THIS CHARACTER 
c$ 1S A DIGIT BETWEEN O & 9 
#’9,R1 
#1C7777,(SP) | ;;DON’T LET NUMBER GET TO BIG 
3;8R IF L 
| ¢ pees 3; #e 
(SP) ,-(SP) ;;SAVE FOR LATER 
(SP) 3384 
(SP) 33 %8. 
(SP)+, (SP) :2#10. 
S$ > :OVERFLOW ISN’T ALLOWED 
#’0.R1 >:STRIP AWAY THE ASCII JUNK 
R1, (SP) *:ADD IN THIS DIGIT 
cS >:OVERFLOW ISN’T ALLOWED 
2s ;;LOOP 
Re is CHECK IF NUMBER IS NEG 
(SP) >: YES--NEGATE THE NUMBER 
(SP)+, 12(SP) 33 HE RESULT 
(SP)+,Re ;;POP STACK INTO Re 
(5P)+'RI >:POP STACK INTO Ri 
(SP)+,RO *:POP STACK INTO RO 
; ;RETURN 
(SP)+ ;;CLEAN PARTIAL NUMBER FROM STACK 
(RO) >:SET A TERMINATOR 





--—— ous ore ee eo eee + eee 


N10 
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OZRKHE.P11 READ A DECIMAL NUMBER FROM THE TTY 


a oe 





' 
' 


023434 104400 ;;TYPE_THE INPUT UP TO BAD CHAR. 
023436 000000 6S: ;#POINTER GOES HERE 


TYPE 
WORD 0 
aes Gave gazed “'*"* "te titey AGAIN’ 


eee 


a ee oe 





-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


ifats Routine 1s weep To crane A ie-git givaay Mareen To A =-O1 
SATHIS D pecihat iS Uae? 1pieey PEER One At Fei te 


ie aiche ¢ 
‘ Rumen 15 Pos] nied eens 1h OE RS CfGN Witt GE TYPED 
ie pict PPhat Brot T BE THE NUMBER LECOING SPROS MILE AtMayS EE 
ED ITH epAreS. 
“4 "] 





MAY -DIRKK- MACY A Gs cae ) 5 
Soaee pat 1 foes chy VERT BINA : See tna ‘a et 43 Sif ive Rom 
# 0 NUM, -(SP) :;PUT THE BINARY NUMBER ON THE STACK 
# TYPDS 2:60 TO THE ROUTINE 
STYPDS: 
ees Rae me) ni oo 
ihe MOV R2)-(5P) + Buen a ON 2 
- 010346 MOV R3,-(3P ::PUSH RON 
1 MOV -(5P) ; BUSH ON 
1 929200 MOV e20200,-(SP) 33 SWITCH AND SIGN 
1 MOV 20(SP)'RS +:GET 
10 190008 is ::BR IF POS 
1 NEG $3 THE BI NUMBER POS. 
12766 o000SS 00000! MOVE = & =, L( SP) He THE ASCI NEG. 
aula oI 1S: iv. SROBLK. RG + eee THe OUTPUT. POINTER 
Fils il rican “ nove 8’ , (R3)+ 2: SET es wen TO A BLANK 
cu? 1 023652 MOV SSTBL(RO),RI Hoey THE e 
1 : 1, 9% 
| 18 3$ SUB R1RS FORM THIS BeO DI DIGIT 
5419 BLT 4g ::BR IF 
: Inc Re 3] HE BCD DIGIT BY 1 
| oy Os ug: R1,RS ;ADD BACK THE 
fe ricagie TS Re 3CHECK IF BCD biGIT=0 
10S716 fore (SP) ;}STILL DOING LEADING 0°S? 
1 BMI 75 He 
106316 S$ ASLB «(SP :3MSD? 
1 BCC 6$ :BR IF_NO 
| §4e9 1 990001 177777 MOVB 1(SP),-1(R3) 3: YES--SET THE SIGN 
B40 i 6$ BIS #°0,Re 3: THE BCD DIGIT ASCII 
eH 1 000040 7§ BIS 8’ ‘Re : IT A SPACE IF NOT ALREADY A DIGIT 
«BS ees ME Maecesrzage mM 
aia 000010 CMP RO, #10 CHECK THE TABLE INDEX 
| oy BLT 2s G0 DO THE NEXT DIGIT 
| oy BGT 95 4380 19 EXIT 
| et MOV RS,Re 2:GET SD 
07€ BR 6$ 3360 CHANGE TO ASCIT 
| §439 . Qs TSTB ss (SP )+ >:WAS THE LSD THE FIRST NON-ZERO? 
| 544g 1 BPL 33 >:BR IF NO 
1 1 177777 177776 MOVB  -1iSP),-2(R3) 3:YES--SET THE SIGN FOR TYPING 
10501 CLRB 3s (3) ::SET THE TERMINATOR 
O1 MOV (SP)+,RS : : POP STACK INTO RS 
12603 M (5P)4°R3 ::POP STACK INTO R3 
/ Saas Cl2602 MOV (SP)+'Re :POP STACK INTO R2 





MAI 
02 


eee 


C=11-DZRKH-E 


MACY] 
Pll CONVERT BINAR 


1 §5 7(7 


2) 
EE InaL 


Oocod4 


O4-NOV-76 
AND TYPE 


foul 


MOV (SP)+,R1 
MOV (SP}+,R0 


TYPE 
MOV 2(5P),4(SP) 
V ( * (SP) 
RTI 

SDOTBL: 10000. 
000. 


ee cee 





: SADJUST HE STACK 
;;RETURN TO USER 









11 





MAINDEC=11-DZRKH-E_=sMACYIL ET(722) O4-NOV-76 13:36 PAGE 134 
BoAe PLE TYPE ROUTINE 


~SBTTL TYPE ROUTINE 

33 a a eg a tte ee ry ge ee 

ietbe fourine MeL TNeeRT ; NUMBER OF NULL TeRe EF TER A uf FEED. 

; #NOTE1: SNULL_CONTAINS THE CHARACTER TO BE SED AS THE FILLER CHARACTER. 

#NOTE2 SFILLS CONTAINS My 3 NUMBER OF a Sit CHARACTERS REGUIRED. 
CHARACTER TO FILL AFTER. 





j #NOTES: SFILLC CONTAINS T 
;*CALL: 
#1) USING A TRAP INSTRUCTION 
it TYPE  ,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
; TYPE 
3% MESADR 
3% 
10S737 001157 $TYPE: TSTB STPFLG s;IS THERE A TERMINAL? 
1 BPL 1$ 3;8R IF YES 
HALT ::HALT HERE IF NO TERMINAL 
BR 3$ 3 ;LEAVE 
510046 13 MOV RO, -(SP) >:SAVE RO 
i poo002 MOV aetsP) RO *:GET ADDRESS OF ASCIZ STRING 
i 2 MOVB = (RO)+,-(SP) >:PUSH CHARACTER TO BE TYPED ONTO STACK 
1 ENE 45 :BR IF IT ISN'T THE TERMINATOR 
TS (SP)+ it IF TF AHINATOR POP IT OFF THE STACK 
1 50s MOV gh RO ;;RESTORE RO 
16 ooooce $ ADD , (SP) ?:ADJUST RETURN PC 
2 000002 RTI ; ;RETURN 
Bias 0237.20 122718 000011 4S CHES SHT, (SP) >:BRANCH IF <HT> 
5488 122716 000200 CNPB ss BCRLF’, (SP) ;;BRANCH IF NOT <CRLF> 
E-59 I BNE 
o120 TST (SP)+ ;;POP <CR><LF> EQUIV 
eyae le SCRE «ata ais 
e133 j 024106 CLRB § SCHARCNT ;;CLEAR CHARACTER COUNT 
;;GET_ NEXT CHARACTER 
S495 023760 004 02404 cs: ISR STYPEC GO TYPE THIS CHARACTER 
st oY i a7e 001156 6S: CMPB 6s SFELLC,(SP)+ 3:15 IT TIME FOR FILLER CHARS. ? 
5497 901 BNE :IF NO GO GET CHAR. 
a3 1374 001154 MOV ,-(SP) ;;GET # OF FILLER CHARS. NEEDED 
5500 02377 000001 75 OECB OL SP) OOO Re tt NEC fo BE TYPED? 
le 3/7 $ $3 ? 
5501 Oe400c 105398 Th + OPE Noe THE NULL OFF OF STACK 
10 eee te Deca SCHORCNT” +388 NOT COUNT As A COUNT 
Ee peapi4 aa ER § : ;LOOP 
e508 sHORIZONTAL TAB PROCESSOR 
1271 8S: MOVB sw” (SP) ;;REPLACE TAB WITH SPACE 
2epg Gees 54s 9S: JSR Pc, $TYPEC + TOPE A SPACE 
5510 37 000007 024106 BITB 87° SCHARCNT >:BRANCH IF NOT AT 
£511 Oe4034 001372 BNE 9S >: TAB STOP 
€Si2 024036 005726 TST (SP)+ ::POP SPACE OFF STACK 


re. + ee - ee we 0 ee - | 
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Pll TYPE ROUTINE 
peuosg ono7es 28 33 ET_NEXT CHARACTER 
: 155102 STYPEC: S18 $15 ::WAIT UNTIL PRINTER IS READY 
1Pee58 ooooo2 155074 MOVB HPs aSTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
000015 oo000e2 CMPB ach, 2tSP) +3 CHARACTER A CARRIAGE RETURN? 
4 O01 BNE 18 ::BRANCH IF NO 
: 024106 cLRB SCHARCNT is YES--CLEAR CHARACTER COUNT 
000012 o00002 13: CMPB so @LF, 2 (SP) 1S CHARACTER A LINE FEED? 
102 OO14 BEQ STYPEX ::BRANCH IF YES 
109 1 INCB = (PC) + ::COUNT THE CHARACTER 
024106 o00950 SCHARCNT: WORD 0 CHARACTER COUNT STORAGE 
024110 900207 STYPEX: RTS PC 


MS a ye 





MAINDEC=11-D2RKH-£ MACYI1 27(722) O4-NOV-76 13:36 P 

BeAKuE Pit DSUBLE LENGTH BINARY 70 DCTAL ASEII COMVERT SUT TNE 

LSBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 

SREREEESFEERSES LAPSES RELESEREEGE PL SEESASGEEREST SSSERSEHEEFSEF ESSE GE 
NUMBER TO AN 


iaTurs (ROUTINE MILL CONVERT @ 32-BIT UNSIGNED BINARY 


; #CALL 

ie MOV 8PNTR,-(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 

# ISR Pc, as$0820 aS tae ROUTINE 

3% RETURN THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE 









aes 
/ SE HSE? mn $820: SED coy my SMELT 
24g ay Biseos Gedesi MOV «SSOCTUL+13.,RS FIPOINTER 16 DATA Ta@LE Mn MORO 
a RS bee Big Ry Heres" HRiaeven oor 
. 5543 beat ol 199 MOV (R1)4$,RO LOWER WORD 
sey 1 12101 MOV (R1)+;Ri HIGH WORD 
SS45 Paes CLR Re ;; TERMINATOR 
Bs eis i TP eae Gaegrgn monte tee 
See ae] cat agree St Door 
eer Beuied ic ae p3BR ae rarTes BSUSt POINTER FOR FIRST 
5552 024156 010566 oo00c2 MOV RS,2(SP) >;ASCIZ CHAR B PUT ITON THE TACK 
Bl babe RE oe aces 
Bee Deus BpesoT ge: ROR OR +E SeTTLON THE BIRORY NUMBER FoR oo 
357 a 006000 ROR a 33 THE NEXT OCTAL DIGIT 
GoeonG ROR 

sel = ze ron Be 3;MASK OUT ALL 

tes ete Dare Coe Ce + OO PUT TF IN Th 

024214 O00016 SOCTVL: .BLKB 14. ;;RESERVE DATA 













Gll 
DOARPECPLE DSUBLE LENGTH BINARY to DECIMAL ASCty Santi l 


-SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


inreegonseagsnsnnsenusssestesezenezenesaneonsvecuasoanoresoess 
THIS ROUTINE aw CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
sHDECINAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 





Us 





5567 





ie MOV SPNTR, -(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 


Seana 
gi 






: 
ae 
& 


mun 


ay 
Sees 
Sa 


2 
8 
R 
R 







TURN >: THE FIRST ADDRESS OF ASCIZ 
21S ON THE STACK 
557% o44 $D82D: SAVREG RE 
fe BSR UE oom acs no HEAPPH Be, pox 
beg i Seo0ds MOV ECL RO S & Bt nies STACK 
es fees bibl nov (ReS¢ Re ed 
see Gees Gira? go0012 024330 MOV “ne ag ;;SET UP TO DO 10 CONVERSIONS 
1 02434 MOV SS TNPUR, RY ;;RDDRESS OF TEN POWER 
024344 MOV BSTNPHRY2, RS 
1$: CLR ;;CLEAR PARTIAL 
161401 23: Sus (RH), :SUBTRACT TEN POWER 
al Gee (bis cg is) re 
BL 3$ ;;BR IF TEN POWER TO LARGE 
5593 024304 INC R3 3300.1 TO PARTIAL 
EEN BR 2s LOOP 
BS 1 3$ ROD (R4)+, Rd ::RESTORE SUBTRACTED VALUE 
5597 314 062402 ADD (RY) +, R2 
5598 Gev316 022525 CMP (RS)+' (RS)+ ;;MOVE TO NEXT TEN POWER 
233 Get 000060 BIS 8’0.R3 75 CHANGE PARTIAL TO ASCII 
304 11 MOVE 3, (RO)+ ;;SAVE IT 
5601 Oe4 DEC (PE)+ He 
5602 Oe4 4§: WORD 0 
5603 1357 BNE 1S BR IF i 
a4 1 CLRB (RO)+ eae 
104414 RESREG STORE TOR SISTERS 
Sb0e 024 RT PC : =RETURN 
STNPWR: 1 sR TU 
5608 35632 
5609 
5610 
61 
zt 
bid 17 17 
cei ? pee 3;1.0E05 

bbl tei373 023420 es420 331.0E04 

18 1750 ;31.0&03 

0 
Sbel 144 . 





mm me ee 







ee ee eee 


+ 


Hil 
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0 
Q 
1 
0 


;;1.0E00 
;;RESERVE STORAGE FOR ASCIZ STRING 


St 
i 
Be 


SDECVL: .BLKB le. 


en 
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Pil SUPRS - RICAL ASCIZ STRING, REPLACE LEADING 0’S BY BLANKS 


S628 40600 .SBTTL SUPRS - TYPE NUMERICAL ASCIZ STRING, REPLACE LEADING O0’S BY BLAN 
5629 40610 -SBTTL__SUPRSL - TYPE NUMERICAL ASCIZ STRING, LEFT JUSTIFY 
Ea 4 NOT FROM SYSHAC 
O24426 010046 SUPRSL: MOV RO, -(SP) SAVE RO 
5633 20 005037 o024S16 40650 CLR 
916600 o00co4 4 OV 4(SP), RO 
4 1 
l dpeso SUPRS: MOV RO,-(SP) RO 
2e3 panned eee 000004 4pS60 MOV 4(SP) RO *PICKUP THE POINTER 
£539 010037 O2e4S16 407 ; MOV RO, SUP2 *SAVE FOR TYPING 
ae? 195710 40730 ie S18 (RO) j TERMINATOR? 
4 eat 000060 45o30 CMPB 3s #0, (RD) :1S tins AN ASCII “0”? 
cou4 4% 001006 40760 BNE 4g : 
SE4S 1 000040 40770 MOVB #40, (RO)+ *REPLACE IT WITH “BLANK” 
Bove 72 49780 BR 1$ 
4 74 es: DEC RO ;BACKUP BY 1 
5648 024476 112710 40806 MOVB _—_#°0, (RO) ASCII “0” 
024516 40810 4§ TST SuP2 “LEFT JUSTIFY? 
ess 3 ES i i 
2) iy 1oN4a0 - 4ostD 5S "ee are OE TYPE 
5653 eat Aonoon 40850 Bie: .WORD 0 F 
5654 012600 40860 (SP)+,RO sRESTORE RO 
5655 24522 Olesleé 40870 (SP)+' (SP) RESTORE THE STACK 
5656 024524 000207 40880 RTS PC RETURN 
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ee 
oe 
a 
oS 
5670 
el 
5673 
eS 


5c 
5678 
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INTEGER MULTIPLY ROUTINE 


oo 
—— 
r+ 


& 


E 


: 


=: 


Sueeeee se 


55 


eee! 


= 
& 


ooo 
ee 


RL SS EEE 


es 


O4-NOV-76 


-SBTTL INTEGER MULTIPLY ROUTINE 
5 RAR RR REAR REE ER EEE EEE R EEE EERE EE ERE E EERE EEE EAE EE EERE EES EEE 


MULTIPLER, -(SP) 
MULTIPLICAND, -(SP) 


;sPRODUCT TS ON THE STACK 





?$CALL 
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BAR 
— as 

= 

a 

ye) 

— 


BUghgRBREBARGUz2Ga 
ES re 
“3 2 


a2 
— SS wh ws 


VT--—-— Dw 
Seger 8 








sien 


SMULTIPL CAND POSTIVE 
MULTIPLIER 


GN KEY 
TIPLIER POSTIVE 
COUNT 


Se 
a 


i 
F 


aa" 
niger 


8 
S 


4 4 


$28 844 


THE PARITIAL PRODUCT AND 
THE MULTIPLICAND SEEN DONE? 


Aes 


‘(+ce 
orn 


GN INFO. OFF OF STACK 
THE PRODUCT ON THE STACK (MSB’S) 











Baree Str 


— = 0 oh pe 
WO NIWUIL Wie 





i Sat Jat bat 





SoU OR SSSeA IAAT STRAT TORSE EVO ONS 
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al 
at 





INTEGER DIV NE 
4 
49930 
40940 
4 
40970 
40980 
40990 
41000 
41010 
41020 
41030 
41040 
41050 
41050 
41070 
41080 
090 
fe 

01374 . il 

012737 Ge4654 00034 

ren rt 024676 

016627 900004 oodo34 

OO fRemneneat eemmstn 

042716 00017 

010046 

010146 


Se 


5 
Sor 


east 


= 


es 


8 


i eistaiensdpeinidgetedhdics amie: 


Pe ke ke tetukutetututet ttt PTT 
Bus see Sees essaseees 


= = b= 6 0 0 6 = 9 = Fb 0b 0 bb 0 = b= 0 bb 0 = 8 = 


000022 
000003 
310 
320 
000020 330 
000001 41340 
41350 
~ 41360 
41370 
41380 
000014 41390 
1 41400 
41410 
000002 41420 
He 
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Kil 


.SBTTL INTEGER DIVIDE ROUTINE 


$ 


ee eee eS ee ee Se 


4S: 





Ge ae NO, stsP 7), 
of ‘Biv 


NO ERROR OVERFLOW DIVIDE BY ZERO 
REMAINDER ALL ZEROS ALL ONES 

TI ALL ONES 
34,-(SP) ;SAVE CURRENT TRAP VECTOR 
#1$,34 :SET UP TRAP VECTOR 
#2$, (SP) sREPLACE NEW PC 
4 (SP), 34 “RESTORE OLD TRAP VECT 
2(5P);4(SP) SAVE PSW 

*RESTORE PSW 

$17, (SP) ;STRIP AWAY CONDITION CODES 
RO,-(SP) PUSH RO ON STACK 
R1,-(SP) >PUSH R1 ON STACK 
Re,-(5P) : PUSH Re 

-(5P) ;PUSH R3_ ON 
-( Sp) *SAVE A FOR SIGNS 
#17. .-(SP) *SETUP THE ITERATION COUNTER 
24(SP),R1 *PICKUP THE DIVIDEND 
22(5P).RO SCHECK THE SICN 
Step) CHEK Rae ass THE SIGN 
RO AND NEGATE THE ORIGINAL 
pa : NUMBER 
20(SP) ,R2 ;PICKUP THE DIVISOR 
#1,Re IF THE DIVISOR IS 1 SKIP THE REST 
* eT 
4g sCHECK THE SIGN 
c$ ;DIVISOR OF O IS A NO-NO 
#3, 14(SP) SET “v" 8 "C™ 
#-1,RO iSET REMAINDER TO ALL ONES 
(SP) *KEEP TRACK OF DIVISORS SIGN 
R2 NEGATE, THE ORIGINAL NUMBER 
BS START FORMING QUOTIENT 
RO “POSITION MSB’S 










MIP ES Bivihe 


;QUOTIENT & REMAINDER ARE ON THE STACK 





ee ee eae ee ee 
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INTEGER DIVIDE ROUTINE 


1 41480 MOV 

41490 ADD 

1 1 41 8CC 

re ne 

101 41 8$: ROL 

005316 41530 DEC 

Be Bee Bud sO 

l aieeh Le 

EH SS HP coor woos 1 

o77 pee0s0 10001 4iS90 «9S: MOV 

OeS0S2 1600 108: TST 

005716 te. TST 

OeS06e 105066 000001 41640 CLRB 
ees He 

41 118: TST 

025072 001401 41670 BEQ 
5780 O2S074 O0S401 41686 

5781 025076 010166 000020 41690 =12$ MOV 

uae 025102 testa 000016 41700 MOV 

025106 Ole603 41710 MOV 

27a poet ig pi ceie 41720 MOV 

0eS11 12601 41730 MOV 

5786 025114 012600 41740 MOV 

5787 025116 Oleb6& Oo00002 41750 MOV 

ve ig eee i 

280 beelse 0007 417 


ate Q4-NOV-76 13:36 PAGE 142 


i 
wv 
~ 


-——_— 
- 
ed 
ae 


8 


Dawe — 








= 


viper . BES 


Ka Rr 


nD 


o 
ASS. 
“Ti -30-40- T} 


os 


3 
a 
5 


IF NO 
iSET “V"_IN RETURN STATUS WORD 

T REMAINDER TQ ALL ZEROS 
i COPY REMAINDER Hy QUOTIENT 
CLEAR COUNTER FROM STACK 
sReMAINER SIGN CORRECTION NEEDED? 


F 
NEGATE REMAINDER 

SCLEAR SIGN 

;BUT_ DON’T FORGET QUOTIENT 
;QUOTIENT SIGN CORRECTION NEEDED? 


SHB 


'POP STACK INTO RO 
SETUP TO RETURN CONDITION CODES 


ETURN 
POP THE STACK 









Z 
§ 


ttt attetatatey 
Ob 2 be bs be be be ee 
DOO NOU ££ WITH 


BS 


Sistas 





gumennmrocoooosey 3 


=11-DZRKH-E MAC 
Pil VE AND RE 
025130 

025130 01004 
OeSi3e 010146 
0eS134 102% 
02S136 010346 
025140 O10446 

OeSi4e O10S46 
025144 01664 000022 
025150 016646 0000¢ce 
O2S1S4 016646 O000ce 
025160 O1664€ OC0002e 
0eS164 000002 
025166 

nsoise pieree 000022 
bee] BISeEE Bpaos8 
OeSe0e Oleb65 000022 
OeSe06 012605 
OeSei0 012604 

OeSele 012603 
OeSel4 012602 

OeS2el6 Ole601 

OeSe2e0 012600 

OeSeee 000002 
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-SBTTL SAVE AND RESTORE RO-RS ROUTINES 

§ 5 RERARALELEREREAALAL ELE LE LALA LE LE RELA LLLLLAEFLEESARELELELAA LAGE 
: SAVE RO-RS 

;*CALL: 

:# SAVREG 

3 eUPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


t xTOP=-=( +16) 






t% +2-=-(+18) 

3% +4-- 

3 +6---R4 

# +8---R3 

+ #+10---R2 

:%+12---R1 

3#+14---RO 

SSAVREG: 
MOV RO,-(SP) ::PUSH RO ON STACK 
MOV R1,-(SP) PUSH R1 ON STACK 
MOV Re, -(SP) ::PUSH Re ON STACK 
MOV R3,-(SP) >:PUSH R3 ON STACK 
MOV RY, -(SP) PUSH RY ON STACK 
MOV RS; -(SP) >:PUSH RS ON STACK 
MOV 22tsP),-(SP) i SAVE PS OF MAIN FLOW 
MOV 22(5P),-(SP) 3:SAVE PC OF MAIN FLOW 
MOV 22(SP),-(SP) 3:SAVE PS OF CALL 
Ov 22(SP),-(SP) $:SAVE PC OF CALL 

;#RESTORE RO-RS 

paCreLs RESREG 

SRESREG: 
MOV (SP)+,22(SP)  ;;RESTORE PC OF CALL 
MOV (SP)+,220(5P) ::RESTORE PS OF CALL 
MOV (5P)+)22(5P) ::RESTORE PC OF MAIN FLOW 
MOV (5P)+,20(5P)  3:RESTORE PS OF MAIN FLOW 
MOV (5P)+°RS >:POP STACK INTO RS 
MOV (SP)+’RG >:POP STACK INTO RY 
MOV (SP)+/R3 POP STACK INTO R3 
MOV (SP)+'Re “POP STACK INTO R2 
MOV (SP)+/Ri ;;POP STACK INTO RI 
HOV (SP)+;RO ::POP STACK INTO RO 








ot en ae 


DaReae 


orm 


Oooo GCO0O0000 
58 


o— 6 bs b= b= bh 2 


g 


S 


ee 
S588 


8 
-_ 
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= 
= 


oOo0000 


eet Ss 
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177771 
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Nil 





ALA GHOAZSR 
= 8 


— 
A 
N 
Fa) 


B2BSR2 
Z 


os 


hana an * | 
00'S oo 
oe wee we Sm 


on 





ae RANDOM NUMBER GENERATOR ROUTINE 
PC, SRAND 


if L THE ROUTINE 


MIE ge a 
ON STACK 


pt Re ON ON STACK 
;PUSH 


; PUSH Ra ON STACK 
GET POINTER TO THE SAVED SEEDS 
:FOR ayy TH uss RANDOM NUMBER 


salle 


RO LEFT AND 
‘ROTA CARRY INTO R1 AND 
ROTATE CARRY INTO Re 
:C FOR DONE 


;CONTINUE SHIFT LOOP 
;ADD NUMBER TO MAKE X 129 


ADD HIGHEST CONSTART 

t BROBO RO 94 HIGHEST DIGIT 
;SAVE RO-SLONUM (FOR USE NXT TI 
;SAVE R1-SHINUM (FOR USE NXT TI 
;POP STACK INTO R3 

POP STACK INTO Re 

ie _ ty | 

poy Sp FOR CORRECT RETURN 

; RANDOM oie FOR ORIVE SELECTION (LO) 
; RANDOM ray FOR FUNCTION 

# RANDOM rie FOR CYLINDER (LO) 

¢ RANDON ray FOR BUS tADDRESS (LO) 

: RANDOM SEED FOR WORD COUNT (LO) 


H 
: RANDOM SEED FOR DATA (LO) 


ME) 
ME) 








MAI 
DIRK 


Co LI -DERKH ES an 
Pil SINAS 


ne 


Se Mes Rt EH 


eaeeee 


a 
wo 


-O 
oom 


Sak ie Bee 


2 0+ D2 & <p -0 § =H -2 p20 he 1H © 


00 NICPUI SF Gru 


Lal 
ve) 


o00re 
BPN 
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SOURCE 





2a53 bos4o4 

ees Toa? 

5 1 

Be Bes 

ese 

Bs 

S340 1 

5H41 0061 

so 1 

54 1 
S44 e703 
S45 | 

So46 

S37 1403 


a a rs ae ee or ee 
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Be 
O11 


SBTTL BINARY TO OCTAL. (ASCII) AND TYPE 


SRERRSSESERESEEEESASEEEEESERESSSE RESELL SEEDS SELES SEE EEEES ESET SS 
TO CHANGE A 16-BIT BINARY NUMBER TO 4 6-DIGIT 


NUMBER AND TYPE IT. 
- hs ptt cata HERE TO SETUP SUPPRESS ZEROS AND NUMSER OF DIGITS TO TYPE 


IS USE 
sagt AL (ASCII) 


NUM, -(SP) 


by aly ie allie alle ale alia - 


searyrus OR SY 
#CALL: 


MOV NUM, -( SP) 
TYPON 


Le. 
4 


eeane - eet ee eeese ee ee ee eeuse 


i#$1YPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


+6 MOV NUM, -(SP) 
:# TYPOC 
STYPOS: MOV 3(SP),-(SP) 
025631 MOVG 1(5P)'SOFILL 
OD. a te * asin 
Be STYPON 
025631 STYPOC: MOVB 1,SOFILL 
025633 MOVB ab, SOMODE+1 
025630 STYPON: MOVB *SOCNT 
MOV R3,-(SP) 
NOV. Re’=CEP) 
MOVB SohODE +1 RM 
NEG RY 
oy Ra’ SOMODE 
Nove SOFILL RY 
HOV 1e(SP), RS 
1S: Br . 
3 
2s: ROL RS 
ROL RS 
ROL RS 
MOV RS,R3 
3s: ROL R3 
CB SOMODE 
BIC #177770,R3 
4§ 
S RY 
BEQ S$ 


ee ee eee ee ee 


; #$T vee on fripoc HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 





7 sNUMBER TO_ BE TYPED 
io FOR TYPEOUT 
i 8 6 FOR NUMBER OF DIGITS TO TYPE 


+? 1=TYPE 


ADING ZEROS 
3;02S SS LEADING ZEROS 


7 NUMBER TO_BE TYPED 
;;CALL FOR TYPEOUT 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


Hiya iyritn 
ROMER OF 


SWITCH 
DIGITS TO TYPE 
ADDRESS 


4 8 
Gi 


Sms 


) OF DIGITS TO TYPE 
IT FOR MAX. ALLOWED 
FILL SWITCH 

NPUT NUMBER 


2 zzz 


~~ 


ee aveean 


2Q-* 
SF 
mS 











4S: INC RY a N’T 


es an ey ee oo 
$3 FOR_ TYPING 


7$: ECR —-SOcNT COUNT 
5 FORE 70 D0 


3 

wu »D 
cous 

we: 
= 
ie 
“ 
Ee 
~~ 


“ 
@mo-~ 
> 
~4 


330R IF 
BLT 6$ ;;BR_IF DONE 
INC oa ;; INSURE LAST giert 1SN’T A BLANK 
ER ai 3360 9 THE IG 
12605 6S: MOV (SP)+,R5 ;;RESTORE RS 
pier MOV (SP)+,R4 5 Re TORE Ga 
1 (SP)+,R3 3;RESTORE R3 
ft 6& 000002 900004 MOV 2(SP),4(SP) 3;SET THE STACK FOR RETURNING 
12616 MOV (SP) +; (SP) 
RTI ; ;RETURN 
ea es -BYTE QO ;;STORAGE FOR ASCII DIGIT 
BvTe 0 3; TERMINATOR FOR a 3 ROUTINE 
000 SOCNT: .BYTE 9 ;;OCTAL DIGIT COUN 
000 SOFILL: .BYTE 9 33;2eRO FILL SWITCH 
000000 SOMODE: 0 ;;NUMBER OF DIGITS TO TYPE 





42400 
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ae eee +s 


ww ee ee a er eres 6 en ee a ee re ee rm ee ee Oe em ee ee re te ergy 


Pil ERROS HANDLER ROUTI 
ists -SBTTL ERROR HANDLER ROUTINE 
4e44Q =, #SW1S=1 HALT ON 


OUTS 
OUT THe ERROR HISTORY, THE FUNCTION THAT 
RFORMED ON RK AT THE TIME OF ERROR AND 
ION ORMED PRIOR TO THAT 


iD 
“ 
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$73 
374 
42499 s#NOTE THIS SUITCH OPTION (12) IS MEANINGFUL ONLY FOR ERRORS OCCURING IN THE 
5278 4 s EXE ISER PART OF , 
42510 ;#SWi1=1 DUMP OUT ALL RK REGISTERS 
5980 #5W10=1 BELL ON ERROR 
zag , ert Hope OUT TIRE 
4 : =} TIME AT WHICH ERROR OCCURED 
42550 3 #5WO2=] DROP THe IVE AFTER MAXM ERORS ON THIS DRIVE 
S34 42560 3 #SW01=1 YPE HE SERIAL NUMBER OF THE ERRORING DRIVE 
Ses 42370 #60 TO SERRTYP ON ERROR 
bass 45290 
2338 1 001103 42600 S$ERROR: INCB SERFLG ;SET THE FLAG 
1 4261 BEQ SERR :DON’T LET THE FLAG GO TO ZERO . 
5930 1 901102 oo1142 4 MOV STSTNM, J#DISPLAY: DISPLAY TEST NUMBER AND ERROR FLAG . 
s33 pases) Due iSsebe 4260 BIT #SW10, SSWR SBELL ON ERROR? 
DSSbbL ted 001206 4p ree *RING BELL 
e539 00S237 O0llle Hebeo 1S: INC SERTTL *COUNT THE NUMBER OF ERRORS 
ese 025670 032777 O00004 153242 2680 BIT , aSWR ;COUNT # OF ERORS 8 DROP DRVE? 
222 025676 O01415 42690 BEQ NO. 
| 8999 o2s700 o10146- 45710 MOV RL. = SP) CAVE RI 
6000 025702 013701 001750 4 MOV ; :GET ERRORING DRIVE 8 
6001 025706 100410 4 BMI IF (SRORV)= -1, SKIP(BECAUSE THE 
£592 4 *EROR WAS NOT ATTRIBUTABLE TO ANY 
4 :SPECIFIC DRIVE) 
| §004 025710 105261 oce22e4e 42760 INCB —— ERDRV(R1) ;COUNT ® OF ERORS ON THIS DRIVE 
| $005 025714 leble? O0ee42 000003 42770 CMPB =s«ERDRV(RI),#3 38 OF ERORS GREATER THAN ALLOWABLE? 
| EboP beevea Anois? - o1s760 4 tee ‘DROP 
be 137 01 4 IMP CT : THE DRIVE 
| 6008 025730 012601 42810 2: MOV (SP)+,R1 RESTORE RI 
| 6011 025732 011637 001116 4 3S: MOV (SP), SERRPC ;GET ADDRESS OF ERROR INSTRUCTION 
bOle p00002 001116 42840 SUB 82, SERRPC 
| 6013 025744 4yoRsO CLR -(§P) 
/ 6014 Ge5746 117716 153144 4OR60 MOVB  aSERRPC,(SP) § ;STRIP_AND SAVE THE ERROR ITEM CODE 
| 601s 121 000100 42870 CMPB ss (SP), #100 *FORM THE CO4SECT ITEMS IF THIS IS AN 
016 025756 42880 BLT 43 sEROR MESAGE EQUAL OR ABOVE 100. 
EO! 025769 162716 COOO4O 4 SUB 840, (SP) ;NOTE THERE R 2 CLASSES OF ERRORS: 
| i8 4 1) S$ITEMB’S BELOW 1 
| §018 42910 72) SITEMB’S ABOVE | 
e029 4 SUBTRACTION FACTOR HAS. T SUCH 
j 4 >THE CONSECT OFFSET 1s SELECTED. THIS 
| 6022 4 "FACTOR WILL CHANGE IF THE TOTAL # OF 
| 6023 4 “ERROR MESSAGES IN CLASS I S 
| §02e4 4 :#2100 -LAST ITEM IN # CLASS 1 - 
| 60eS oes764 012637 001114 42970 «4S: MOV (SP)+, SITEMB 
| 
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p0s8 77? 020000 153142 
1016 
026104 
1 001213 
603 10 010000 iS3i22 
a3? 
73? 020120 
6034 
neon a 
$038 026024 pa 001000 153076 
6039 O2e6042 0014 
6040 Oe6044 1 001114 900040 
6041 Oe60S2 103011 
6042 026054 01374 001744 
6043 
6044 
S045 
6045 026060 005726 
6047 Oe6062 Ole716 015374 
6048 
6949 
6050 
6051 Oe6066 012737 177777 001750 
6054 
6057 026074 9000002 
6058 Oe6076 013716 001110 
60S9 O2610e 000771 
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4 IT 13, SUR 
45ag9 BNE 

43000 ISR PC a8SERRTYP 
4301 Type ~=—-_ , SCRLF 

43030 BIT 8SW12, ISWR 
43040 BEQ 5 

43050 ISR PC, HISTRY 
43060 

43070 SS: IST aSHR 

43090 FACT 

43100 6S: BIT #SWO9, ISWR 
43110 BEQ 7§ 

43120 CMPS SITEMB, #40 
43130 BHIS  8$ 

43140 MOV PPRLVL, -(SP) 
43150 

43160 

43170 

43180 TST (SP)+ 

43130 MOV #EXCRLUP, (SP) 
4321 

43020 

43230 73: MOV #-1, SRORV 
ase 

43260 

43290 RTI 

43300 «BS: MOV SLPERR, (SP) 
43310 BR 7§ 








ef Ver ouT IF SET 
0 USER ERROR ROUTINE 


; TYPE ERROR HISTORY? 


ERROR? 

ERROR SWITCH SET? 

ERROR MESSAGES IN CLASS 1 
ALL INTERUPTS ON RETURN 


EROR HANDLER, IF THE EROR 
SER $ LOOPING IS TO 


ade geet 
ee 


WAS FROM EXERCISER 


sRESET SERIAL NO FLAG 
IF (SRDRV)=-1, THEN THE SERIAL 
OF THE ORIVE WILL NOT BE 
STYPED OUT. 

: OTHERWISE SERIAL NO FOR THE DRIVE 
*8 IN ’SRDRV’ Wd TYPED. 

sFUDGE RETURN FOR LOOPING 

;RETURN 
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~SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


jeernOe Te 10 ee Repoeten, TT fren OBTAINS, saree Pe TERROR TRGLE™ CSERRTED, 


#AND REPORTS THE APPROPRIATE INFORMATION bONCERNING 











SERRTYP: TYPE s"CARRIAGE RETURN” 8 “LINE FEED” 
MOV RO, -(SP) : RO 
CLR ‘PICKUP THE ITEM INDEX 
BISB adeSITEMB,RO 
BNE 1$ ;IF_ITEM NUMBER IS ZERO, JUST 
HOV SERRPC,-(SP) TYPE THE PC OF THE ERROR 
&R . c$ GET OUT 
1S: DEC RO “ADJUST THE INDEX SO THAT IT WILL 
ASL RO ;WORK FOR THE ERROR TABLE 
ASL RO 
ASL RO 
ADD 8SERRTB, RO sFORM TABLE POINTER 
MOV (RO)+, 2$ “PICKUP “ERROR MESSAGE” POINTER 
BEQ 4§ SKIP TYPEQUT IF NO POINTER 
TYPE ;TYPE THE * MESSAGE” 
2s: .WORD 0 POINTER GOES HERE 
CMPB) Os SITEMB, #40 SKIP TIME & SERIAL # FOR 
BHIS 38 sNON-EXERCISER ERORS 
ISR PC, TIMTYP ;TYPE OUT TIME IF SW 3 IS SET 
JSR PC, SNOTYP ;GO TYPE OUT THE SERIAL # OF THE 
*ERRORING DRIVE, IF SW 1 s SET. 
3$ TYPE s"CARRIAGE RETURN” 8 “LINE FEED" 
45: BIT Boul, asuR :DUMP OUT RK REGISTERS? 
ISR PC, OMPREG ;GO TYPE OUT RK REGISTERS 
TiPE ,SCRLF 
cs: MOV (RO)+,6$ sPICKUP “DATA POINTER 
BEQ 73 ?SKIP TYPEOUT IF 0 
TYPE ;TYPE THE “DATA HEADER™ 
6S: .WORD 0 snDATA HEADER™ POINTER GOES HERE 
TYPE SCRLF *"CARRIAGE RETURN" & “LINE FEED" 
7$: MOV tRO) RO “PICKUP “DATA TABLE” POINTER 
BEQ 25 
sTYPE AN OCTAL 
8S: MOV Q(RO)+,-(SP) § ;SAVE a(RO)+ FOR TYPEOUT 
TYPOC >GO TYPE--OCTAL ASCII(ALL DIGITS) 
TYPE *TYPE TWO(2) SPACE 
+] 


BLNKS2 
TST {RO) 
BNE 8$ 


w 
3° 
3 


9$: MOV (SP)+,RO 3 
TYPE Scr "CARRIAGE RETURN” & “LINE FEED” 
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ROUTINE 


43900 ;fIMTYP 
43910 ;THIS ROUTINE TYPES it TIME IN HOURS:MIN:SECS IF SW 3 IS SET 
4 ;SW 3 SHOULD NOT BE SET IF PRESENT. 


4 KW1IL IS NOT 
4 TIMTYP: SIT W3, ISWR s1S SW.3 SET? 
4 BE 8 iT NOT Seip TYPING TIME 
4 TYPE  ,BLNKS3 
43970 SAVREG i SAVE RO-RY 
43380 MOV WHR, RO INITIALIZE POINTER 
439 HOV (RO)+;R1 
qu0t0 1S: MOV (RO)+,R1 TYPE OUT 
44020 BEQ 2 
44030 ADD #60. Ri 
44040 2s: MOV Ri 5¢ ; 
MOV $ -(sSp) s HOURS: MINS: SECS 
44060 JSR PC, a8SDB2D ‘CONVERT TO ASCIZ STRING 
44 SR PC; J8SUPRS G0 TYPE 
apap MP RO; #kKWSEC+ "ALL DONE? 
44090 BEQ 
44106 TYPE MSG18 
44110 a9 
44] : sRESTORE RO-RY 
44130 4§: * RETURN 
44140 S§: 



















ERROR MESSAGE TYPEOUT ROUTINE 


441 ‘Pte ROUT OUTINE TYPES OUT THE SERIAL NUMBER OF THE ERRORING DRIVE, IF SW 1 


14 41 a IDENT IETED FOsrTIvetY, "Rs Yue OME leicH GAVE. THE’ ER One OF Ye 
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OZRKHE.P11 
6145 44 CANNOT BE A TED TO ity ANY SPECIFIC DRIVE < (SHORTS -\> THEN 
ple wel ithe esi AL NUMBER ie ROT 
ci 932777 po00g2 152536 W230 ards BIT #SW1, ISWR i TYPE OUT SERIAL #? 
pt hatte cates qusep MOV FF isp) :SAVE R1 
61 408 13701 001750 1260 MOV SRORV,R GET ERRORING DRIVE # 
61 Debit ees 44e ASL Ri SIF _(SRORV)= <1, SKIP (BECAUSE 
61 14 100407 44980 BMI 1$ :THE ERROR WAS NOT ATTRIBUTABLE 
6154 , W290 :TO A SPECIFIC DRIVE) 
6155 O26416 104400 001213 44 TYPE  ,SCRLF 
6156 Oeb422 104400 003030 44310 TYPE MSG17 ; . NO" 
6157 016146 001766 44 MOV SRNO(R1),-(SP) ;GET 1 SERIAL # 
bibg 026432 104404 uM TYPDS *TYPE IT OUT (DECIMAL) 
6160 O26434 012601 44350 15: (SP)+,R1 RESTORE Ri 
6161 O26436 000207 1366 RTS PC * RETURN 
bite 443 
61 44380 
6164 44390 
6165 44400  ;DMPREG 
bib 410 :THIS ROUTINE DUMPS OUT ALL RK11 REGISTERS WHEN SW 11 IS SET AND AN ERROR OCCURS 
6168 O26440 44430  DMPREG: 
6169 Oe6440 104400 O26446 TYPE 65S $1 TYPE ASCIZ STRING 
6170 Oc6444 OO0441 BR 4g GET OVER THE ASCIZ 
617 a. igs: -ASCIZ <15><12>7 PC ’’RKDS RKER  RKCS RKWC RKBA KDA 
61 01374 O01116 4444p "Mov SERRPC, -(SP) 
6174 026554 104401 44450 TYPOC 
CI. Oeeees frog ote qu nove Ao (3) 
6177 pSeeeg sega 001716 44480 MOV 
6178 026570 013046. 44490 «1S: MOV ne -(SP) 
Pied OSeed ioMupD 003455 quE1D a 
E181 Oeeeod foods? poizse queep one 
Pies SSeEDe Te : queaD 
6184 026610 ace queed RTS 
| 
| 
i 
| 
| 
| 


ron 


Sohobobotobetetotetete te tote 
BIFRLSCLESSVER F 


: 





ea 
BSc eee 


152316 


1S2e42 
001106 


001115 
1$2172 
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.SBTTL SCOPE HANDLER ROUTINE 

g ATHIS ROUTINE CONTROLS. THE LOOPING OF SUBTESTS. IT WILL INCREREN 
:&TH 5 LOOPING OF pia Suit fe INCREMENT 

3% Sr NUFBER siSIN Ae) IND v ‘Bec. (DISPLAY<7:0>) 
ane SUT TCH 6 Tae Pet ARES 


eeH0s=1 
jxCALL 


SCOPE ; Semel 


saceres 
SWR TEST FOR CHANGE IN SOFT-SWR 
1S: IT e8IT14, ,aSWR +E LOOP PRESENT TEST? 
SOVE “YES IF SW14=1 
gausesSTART OF CODE FOR THE XOR tistéRsesss 
$xTSTR: BR 6$ IF RUNNING ON THE “XOR™ TESTER CHANGE 


$3 Mat pretation ON TO A_“NOP™ (NOP=240) 
MOV OBERRVEC (SP) a TS 


OF THE ERROR VECTOR 
MOV #5$, J#ERRVEC 33ST FOR TIMEOUT 
TST 38177060 > TIME ON XOR? 

MOV (SP)+, J#ERRVEC t tRECT THE ERROR VECTOR 

BR sSvLab :G0 TO NEXT TE 


SS: CMP  (SP)+, (SP+ TESTER A TIME OUT 
MOV (SP)+, c }IReSrone THE Ere ERROR VECTOR 


BR 7$ THE PRESENT TEST 
63:;8#8HHEND OF CODE FOR THE XOR Ee acuene 
23: TSTB $ 5s HAS BN ERROR OCCURRED? 
byt Si ase iL on ERROR? 
7$: HOV SLPeRR, , SLPADR iceT LOOP ADDRESS TO LAST SCOPE 
4S: CLRB = SERFLG 3 3 ZERO THE ERROR FLAG 
SSVLAD: INCB  $TSTNM $s COUNT. TE T NUMBERS ac 
HOV (SP) , SLPADR 
CLR sesctpe a. he g ESCAPE PROM se ADDRESS 
MOVB OW ONE(1) ERROR ON NEXT TEST 


eR a ti 
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6228 .SBTTL TRAP DECODER 
psa $ bTATS ROUTING WILL PICKUP IME LOWER BYTE OF THE “TRAP” INSTRUCTION 
1 s ATHIS ROUTINE WILL PICKUP THE L BYTE OF THE “TRAP” 
bee : #AND Use It TO INDEX THROUGH ee FAP TABLE FOR OR THE sreAt} Nek COpRESS 
#0F T SIRED ROUTINE. THEN USING THE A T WILL 
beat :#G0 TO THAT ROUTINE. 





Be irs gus ot ey 


-SBTTL TRAP TABLE 


Pode ;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
S247 ;*BY THE “TRAP” INSTRUCTION. 







; ROUTINE 
6251 027000 STRPAD: 
027000 023672 STYPE ;;CALL=TYPE TRAP+0( 104400) TTY TYPEOUT ROUTINE 
027002 025432 STYPOC ;;CALL=TYPOC  TRAP+1(104401) TYPE OCTAL NUMBER (WITH LEADING 
Bae teen Sieot fiertcreot Teessstiona) Nee Seat Manees (2 Ba Lae 4 
reat 023446 TYPDS b etL=TyPbS Met gttte TYPE DECIMAL NUMBER (WITH SIGN) 






027012 Oee%be SGTSWR ;;CALL=GTSWR TRAP+S(10440S) GET 
; TEST _FOR CHANGE IN SOFT-SWR 
16 ;;CALL=RDCHR  TRAP+7(104407) TTY TYPEIN CHARACTER ROUTINE 
14 SROLIN ;;CALL=RDLIN TRAP+10(104410) TTY TYPEIN STRING ROUTINE 
027022 166 SRDOCT ;;CALL=RDOCT TRAP+11(104411) READ AN OCTAL NUMBER FROM TTY 
$$ A DECIMAL NUMBER FROM TTY 


e 
= 
mi 






° =DRV. 
027040 O22iSe queen TY.MSG =TYPMSG TRAP+20( 109420) TYPE MESSAGE ROUTINE, SW13 
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027122 
027! 5 
asiae 
peo te 
98 027144 
cad feeiee 
6301 ast tee 
pans fs5t 
630% 027160 
6305 027166 
6306 asics 
£20, berdap 
6303 027202 
paid 027204 
pall ps7ste 
6313 027212 
6314 027214 
6315 O27e22 
6316 
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~SBTTL POWER DOWN AND UP ROUTINES 


$2 LEERERLS 4 LREREEBELE LS LER EFELELE SES SRELEERERES ELE TLE SPLERLSSFRSS 
“POWER DOWN ROUTINE 
$PWRON: #SILLUP, JHPWRVEC ;;SET FOR FAST UP 


MOV 
MOV #340, JHPWRVEC+2 ;:PRIO:7 
MOV RO,-{S6) ::PUSH RO ON STACK 
a be 
MOV R3,-(5P) PUSH R3 ON STACK 
MOV RY) (SP) PUSH RY ON STACK 
MOV RS’-(5P) PUSH RS ON STACK 
HOV ohh, = (SP) :;PUSH ON STACK 
HOV SSPURUP SEPURVEC’ ! SET UP VECTOR 
BR 4 ;;HANG UP 
. ae is kee a ee eee 
SPWRUP: MOV SSILLUP, J8PWRVEC ;:SET FOR FAST DOWN 
MOV SSAVRS, SP ;:GET SP 
CLR § :WAIT LOOP FOR THE TTY 
1S: INC : ssWAIT FOR THE INC 
MOV t8p)+, aSUR 3;POP STACK INTO aSWR 
my fee He STR IN 
MOV (5P)+/R3 ;;POP Tack INTO 
MOV (SP)+,Re >:POP STACK INTO 
MOV (3P)+,R1 ?:POP STACK INTO RI 
MOV (SP)+ $3POP_STACK INTO RO 
MOV #SPWRON, DSPWRVEC :;SET UP THE POWER DOWN VECTOR 
MOV $340, JH#PWRVEC+2 ;:PRIO:7 
TYPE ‘REPORT THE POWER FAILURE 
SPWRMG: .WORD SPOWER +;POWER FAIL MESSAGE POINTER 
MOV (PC)+. (SP) RESTART AT PFSTRT 
SPWRAD: gltORD PFSTRT RESTART ADDRESS 
SILLUP: HALT ;;THE POWER UP SEQUENCE WAS STARTED 
sa BR 2 $3 BEFORE THE POWER DOWN WAS COMPLETE 
SPOWER: .ASCIZ <15><12>"POWER” °’ —~ 


EVEN 











Lie 
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OUTINES 


-ASCIZ /STUCK IN LOOP,8 COMANDS SHLDSE DONE BY NOW/ 


-ASCIZ /ATMPT TO DO WRITE BEFORE WRT CHK/ 


a 
£ 
oa 


-ASCIZ /ATMPT TO REEXECUTE COMMAND-IN PROGRESS OR ALREADY FINISHED/ 


-ASCIZ /’FUNCTION IN PROGRES’ FLG FOR INTRUPTING DRIVE ISN’T SET/ 


-ASCIZ /UNEXPCTED ORIVE INTRUPTED/ 


-ASCIZ /UNEXPCTD FUNCTION CODE IN RKCS AFTER INTRUPT/ 


-ASCIZ /DRVE ROY CLEAR/ 
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NOP 3037 «63110 = S147)——sS14BsCS149—Ss« G10 
RESET Ate 
ROL 1 3183 315% 315 We wee S79 980 
Se6s5 6 5886 )«=—s«S93S)0s(s 8937 0=S(s$938 )«=ss«s$939—s« S94 
ROR 1689 1690 1691 1692 «= e430 ebl3) EH? PBB 
eras 41le 4113 4114 4115 4491 
RTI 1586 2106 2804 2811 3218 
3373 4358 4814 4902 S0e7 5057 S072 5083 
5451 S488 5729 $788 $819 $835 6057 
RTS 1975. ell?)—ss eel = e147?) 3108S 3e79—s«d3381 Ss: 3310 
4146 ish! 43e8 «6s HHOB:s—i (a7 4H4HGC(itiCBCYHY 
4722 4927 sto 4969 983 1 §107 
sec 2 i 6139 6161 184 86242 
SOB 4373 
SUB 1762 = «1788 =Sss«1779—Sfs«:1781 
oa 4709 S025 S049 sack 5418 aee3 $591 
TRAP 4355 bse Eau goc3 6eS4# = GS 6256 866258 
TST reg? 617 eae 16 756 1777 1925 1 
330 2603 e620 ie 2735 e740 862751 862756 
- 2920 2$e9 2959 Sill 3189 3657 3672 3676 
4071 ia 4085 = Be: ar nf ence 
a 
TSTB 1626 €S 1 753 817 
Ss om we a oe 
3532 3665 39e4 4039 4361 4538 4610 4625 
S439. S474——sS514 S641 
a a oe re 
Bom. ie wm he i it 
1607 381791 1797s «1804 =—ss«1816 2735 
4674 f8c8 4677 S054 Se87 0s $288 
6347 6360 6377 633 6401 
b444 = B4S00sCHED SS BH70—OséY 6483 6486 6489 
6519 65e3 6531 6547 6554 6563 6568 
° es 1239 iste 1 I3le =s«1375'isi«d4397s—s«SPBS« OSES 
‘Be 1248 a 1 ry 4020s 1408S 145 
1983 acy 455 1688 1686 2883 2694 389383 
4 964 965 $966 967 


eee Sf elon 
oH 





FF 


unr 
wr 
(a d 


aint ay 


-_ 
ur 


igen 


fig 


we 
Q 


Soha NRE Re ens ea 


SeoR aR an SNe se 


2 


aa 


8 SRRes SRT ER ee any ee 


Ae 


MACY11 27(732) 


5156 


4645 
1797 
46 
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a8 a8 Bspnhss 


wn 
o 
wo 


eee 
wet 


Bane 


yur 
Rock 3 
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OZRKHE .P11 CROSS REFERENCE TASLE -- PERMANENT SYMBOLS 


18s )0 Os «1S7S: «183% )0~=—ss15%Rti«iOF (isi (tC? 
1 gpas e0e7 ; 2148 Ges 23e 302 eta 
4 46 4645 4651 46 0S4 134 14 
6eSS 6256 6257 6258 6259 60 
me ea 
NTYPE 3 3 
° 61 841 e 1e06~=S ss ile 1 1313 1367 
184 1880 13" 2018 e088 #£elée 148 8§= e392 
3113 1 3280 33e5 8=._- 43 472 = 3Se9 
pt] ohag os 7]. Fil 4458 4509 454 
3 5 51 $153 & 
wala $791 S836 465892 =: $970 O60 6116 6141 
T 755 820 
SBTTL _597 619 758 771 783 841 
e148 e232 e401 es46 4329 5002 5058 
S527 3=s_s« S566 5629 S57 ~=65704 5791 5836 
TITLE S86 
WORD 755 756 757 779 B45 852 853 8S4 
8&4 7 868 869 880 881 2 
1207 1 1209 1210 lell lele lel3 1215 
1317 1322 1328 1329 1332 1333 
1344 350 1351 1353 1354 1355 1365 
1425 1426 1429 1430 1431 1432 1433 1434 
O44 = » 09 4 4410 5069 $138 = S141 
6083 6101 6140 6307 6309 #46591 6594 6596 


ERRORS DETECTED: 9 
DEFAULT GLOBALS GENERATED: 0 


#, DZRKHE . SEQ/SOL/CRF/PAGNUM/NL: TOC=SYSMAC. CO, DZRKHE.P11 
RUN-TIME: 46 71 10 SECONDS 
RUN-TIME RATIO: 2417128=1.8 
CORE USED: 34” (67 PAGES) 
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runtine 2 ey eae ee or He djsk writes, 181 pages 


>4 
JOUUUUO: ie 000000000 ' ae: vrerrs ete reeseveen Ok Ve i 0k U0 FOQOOOOOOOOOOUC rae) BOO AOD 
3. SHU ESOOO OSS +P) 


10000! rane POUOUOUDOUOOUOUUOOU0000000! refit fasts DO0OG 300000 


See TTTNNTESS 22e2e 





